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ABSTRACT 



THIS PROGRAM IS INTENDED TO BE USED IN ADDITION TO 

THE Tf1A,8-11 INSTRUCTION TCST (ZZ - CZTMA) 

TO COMPLETE TESTING OF THE MAG TAPE CONTROLLER. 

THE PROGRAM CONSISTS OF ONLY FOUR (A) TESTS WHICH 

CHECK ONLY THE TMA,8-11 FEATURES OF DATA TRANSFER AT ODD 

BYTE STARTING ADDRESS AND OPERATION INCOMPLETE TIME OUT. 



REQUIREMENTS 



A. ANY PDP-11 PROCESSOR 

B. OF CORE 

C. CONSOLE TTY 

D. TMA-11 OR TMB-11 TAPE CONTROLLER (ONLY) 

E. 1-8 TAPE TRANSPORTS (TUIO.N.W) 



LOADING PROCEDURE 



A. USE STANDARD PROCEDURE FOR LOADING BINARY PAPER TAPE 

B. TH'S PROGRAM IS LOADABLE AND CHAJNABLt PER XXDP. ACT11, 
AND SLIDE. IN 8K OF MEMORY. (SEE 7.1) 



4. STARTING PROCEDURE 



THERE ARE TU«D (?) STARTING ADDRESSES THAT MAY BE USED; 
?00(8) AND 210(8). 

A. 200(8): STARTING AT THIS ADDRESS WILL CAUSE A PROGRAM 

IDENTIFICATION HEADER TO BE PRINTED AND ALSO A 

REQUEST FOR ENTRY OF THE UNIT NUMBER (TAPE TRANSPORT SELECT). 

THE DEFAULT SELECTION OF UNIT ZERO (0) IS DISPLAYED, AND 

MAY BE CHANGED TO ANY NUMBER (0-7) OR UNCHANGED BY 

"YPING THE DESIRED NUTBER OR A CARRIAGE RETURN. 

IF THE SELECTED UNIT IS NOT AVAILABLE. A MESSAGE WILL 

BE PRINTED SO STATING, AND THE UNIT SELECT REQUEST REPEATED. 

B. 210(8): STARTING AT THIS ADDRESS WILL NOT PRINT THE HEADER OR THE 

UNI SE-.ECT REQUEST AND IS INTENDED AS A RESTART ADDRESS ONLY. 
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5. 'ONSOLE SWITCH SETTING 



'^LL SWITCHES EXCEPT 3-9 ARE USED AND THE NORMAl , OR DEFAULT, RUN 

IS DONE WITH ALL SWITCHES SET TO ZERO (0). 

ALL SWITCHES ARE DYNAMIC AND MAY BE CHANGED AT ANY TIME. 



SW15: 


1-HALT ON ERROR 






0=CONTINUE 




SWU: 


1 LOOP ON ERROR (SCOPE) 






O-CONTINUE 




SW13: 


1 INHIBIT ERROR TYPE CJT 






0 PRINT ALL ERRORS 




SW12: 


1 INHIBIT ITERATION**(FIRST PASS 


IS SINGLE ITERATION)** 




0-ITERATE EACH TEST ITS ASSIGNED 


AMOUNT 


SWII : 


1 CONTINUOUS CYCLE 






0 HALT AT END OF PASS 




SWIG: 


1=HALT AT END OF CURRENT fEST 





0-CONTINUfc 
SW9-3: NOT USED 

SW2-0: SELECT INDIVIDUAL TEST (1-4)** 00 = DO ALL TESTS 



5.1 THIS PROGRAM HAS BEEN MODIFIED TO RUN ON A PROCESSOR WITH OR WITHOUT 

A HARDWARE SWITCH REGISTER. WHEN FIRST EXECUTED THE PROGRAM TESTS 
THE EXISTEfiCE OF A HARDWARE SWITCH REGISTER. IF NOT FOUND A 
SOFTWARE '•.WITCH REGISTER LOCATION (SWREG=LOC. 1 76 ) IS DEFAULTED TO. 
IF THIS IS THE CASE. UPON EXECUTION THE CONTENTS OF THE SWREG ARE 
DUMPED IN OCTAL ON THE CONSOLE TTY AND ANY CHANGES ARE REQUESTED 

(IE) SWR=XXXXXX NEW- 

P0SSI8IE RESPONSES ARE: 

1. <CR> IF NO CHANGES ARE TO BE MADE 

2. 6 DIGITS 0-7 TO REPRESENT IN OCTAL THE NEW SWITCH REGISTER 

VALUE .-LAST DIGIT FOLLOWED BY <CR>. 

3. *U TO ALLOW REENTERING VALUE IF ERROR IS COMMITTED 

KEYING IN SUREG VALUE. 

4. <LF> ONLY VALID FOR ACT-11 SYSTEMS-DO NOT USE 

BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICALLY CHANGE THE 
CONTENTS OF SWREG DURING PROGRAM EXECUTION. BY STRIKING *G 
(CNTL G) ON CONSOLE TTY THE OPERATOR SETS A REQUEST FLAG TO CHANGE 
THE CONTENTS OF SWREG. WHICH IS PROCESSED IN KEY AREAS OF THE PROGRAM 
CODE (IE) ERROR ROUTINES. AFTER HALTS END OF PASS, AND OTHER 
APPLICABLE AREAS. 

THE PROGRAM IS FURTHER MODIFIED TO TEST 1-8 DEVICES IN ACT MODE. 
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6. FRROR PRINTOUTS 






THERE ARE THREE (3) TYPES OF ERROR PRINTOUTS WHICH MAY 






APPPAR- ^TATIK FRRHR DATA FRRDR PO^^ITinN FftROR 






A (^TATiic Fponp. ANY RFAD URITF DR ^PAfF OPFRATIGN WHICH 






RESULTS IN SOME BAD STATUS (BIT 15 OF MTC), 






OR UNEXPECTED BUS ADDRESS. OR INCORRECT 






RVTF miSIT Will HF PRINi''D 

D ■ ■ C V VAJ*« ■ # WILL DC ~n i ■ V 1 ^ L/ • 






B. DATA ERROR: ANY READ OPERATION WHICH RESULTS IN UNEXPECTED 






DATA Wll 1 RF PRINTFD 
i/nin WILL. DL 1 n i 1^ 1 c f • 






r PD^iTiniM FR;)np- <u.y ^pacf or rfwind opfration rfsui ting in 






UNEXPECTED STATUS WILL BE PRINTED. 






EXAMPLES*** 






1 thf fdi 1 nuTiMri fxamPi f ^mdu^ a typttai ^tatii^ frrdr 






TF<in • URITF FRDM DDfi RVTF 






URITF FRROR THF^ PRINT ^HOW^ THAT UHIIF FXFfUTINC 












MTC: 161204 PARITY ERROR OCCURED. THE BYTE COtJNT 






MT8C: 0 IS ZERO AS IT SHOULD BE AND THE CURRENT 






MTCA: 6003 6003 ADDRESS IS AS EXPECTED. 






? ThF fdi 1 nuiNn FXAMPI F <sHOW^ A TYPICAl DATA FRRQR 






TF*iT ?• RFAD TO ODD RYTF 






DATA FRRDR THI^ PRINT ^HQW^ THAT A SINQ F BIT WA^ 






CN- 0 PICKED UP IN BOTH CHARACTER NLMBER ZERO 






00000000 (0) AND CHARACTER NUN3ER THREE (3) 






a. 0 i 000000 






CN: 3 






G: 00000011 






8: 01000011 






^ THF FDI 1 DUlMfi FXAMPl F ^HOU^ AM FRRDR DURING A RFWIND OPERATION 






TESTA: OPI TOO LONG 






REWIND ERROR: NO BOT 
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OPERATION 



THE PROCEDURES FOR OPERATING THIS PROGRAM ARE QUITE 
SIMPLE AND REQUIRE ONLY A FEW STEPS: 

1. LOAD ADDRESS 200 OR 210 

2. SET SWICHES FOR DESIRED TEST SEQUENCE 

3. PRESS START 

ALL CONSOLE SWITCHES ARE DYNAMIC AND MAY BE CHANGED 

AT ANY TIME. THE NORMAL OPERATING SEQUENCE IS ALL SWITCHES 

DOWN (0). THE PROGRAM WILL TAKE APPROXIMATELY 1.25 MINUTES 

TO RUN; HOWEVER. IF ITERATIONS ARE INHIBITED (SW11=1), THE 

PROGRAM WILL RUN IN ABOUT .75 MI.NUTES. THE END OF "ASS 

IS NOTED BY A PRINTOUT STATING END OF PASS AND THE NUMBER OF 

THAT PASS. 

SINGLE TEST SELECUON: (SW0-SW5) 

WHEN SWO-3 ARE SET TO ZERO (0), THE SCHEDULAR WILL 
EXECUTE ALL TESTS (1-4) IN SEQUENCE AS A SINGLE PASS. 
IF SWO-3 ARE SET TO SOME NUMBER BETWEEN 1 AND 4. 
THEN THAT PARTICULAR TEST WILL BE EXECUTED CONTINUOUSLY. 
THE PROGRAM MAY BE STOPPED AT THE END OF THE CURRENT 
TEST (EITHER IN SEQUENCE OR SINGLE TEST MODE) BY SETTING 
SWITCH TEN (SW10) TO A ONE (1). YOU MAY SELECT TEST 
NUMBERS IN ANY ORDER (UP OR DOWN) BECAUSE EACH TEST 
IS SELF CONTAINED. 
7.1 CHAIN MODE RUNS A SINGLE PASS ON DRIVE 0 WITH ' OR 9 TRALK 
AT THE STANDARD UNI8US ADDRESS. 
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SEQ 0007 



8. 



TEST DESCRIPTION 



TEST1: WRITE FROM ODD BYTE 

THE PUfiFOSE OF THIS TEST IS TO ASSURE THAT DATA MAY BE 

TRANSFERRED FROM MEMORY TO TAPE STARTING FROM AN ODD 

BYTE ADDRESS. THE TEST WILL WRITE A SIX (6) BYTE RECORD 

FROM AN ODD ADDRESS (WDATA+1) AND READ THAT RECORD 

BACK INTO AN EVEN ADDRESS (RDATA) . NO STATUS ERROR SHOULD 

OCCUR, AND THE READ DATA SHOULD BE POSITIONED PROPERLY. 

THE RECORD IS SIX BYES LONG. EACH BYTE IS ITS NIJ»BER (0,1,2.3.4,5) 

TEST2: READ TO ODD BYTE 

THE PURPOSE OF THIS TEST IS TO ASSURE THAT DATA MAY BE 
TRANSFERRED FROM TAPE TO MEMORY STARTING AT AN ODD BYTE 
ADDRESS. THE PROCEDURE IS THE SAME AS IN TEST ONE C), 
EXCEPT THAT THE WRITE IS FROM AN EVEN ADDRESS (WDATA) 
AND THE READ IS TO AN ODD ADDRESS (RDATA+1). 

TEST3: OPI TOO LONG (OPI = BIT 8 OF MTS) 

THE PURPOSE OF THIS TEST IS TO ASSJRE THAT THE OPI TIMER 
WILL SHUTDOWN THE DRIVE BEFORE THIRTY FIVE FEET OF BLANK 
TAPE IS PASSED. THE PROCEDURE IS TO PERFORM A WRITE WITH 
IRG, BACKSPACE, WRITE WITH IRG 105(10) TIMES IN ORDER 
TO ERASE 35 FEET OF TAPE. AFTER REWIND, ISSUE A READ 
COMMAND AND OPI SHOULD TIME OUT BEFORE THE FIRST RECORD 
(35 FEET DOWN TAPE) IS FOUND. THE NOMINAL VALUE FOR OPI 
IS SEVEN SECONDS (7SEC) OR A80UT TWENTY-SIX FEET (26 FT) 
OF TAPE. THlRTY-FiVE FEET OF TAPE REFLECTS THE MAXIMUM 
TOLERANCE FOR OPI. 

TEST4: OPI TOO SHORT (OPI = BIT 8 OF MTS) 

THE PURPOSE OF THIS TEST IS TO ASSURE THAT THE OPI TIMER 
WILL NOT SHUTDOWN THE DRIVE BEFORE SIXTEEN FEET (16 FT) 
OF BLANK TAPE IS PASSED. THE PROCEDURE IS THE SAME 
AS IN TEST THREE (3), HOWEVER OPI IS NOT EXPECTED BEFORE 
THE FIRST RECORD IS FOUND (16 FEET DOWN TAPE). THE 
SIXTEEN FEET OF TAPE RELECTS THE MINIMll«1 TOLERANCE FOR OPI. 
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L ISTING 



% 



CZTWFO TMA.B- 


"•1 SPLMTL 


CZT^VF.Pn 


16-AUG-78 


?94 




?95 




296 




297 




298 




299 




300 




301 




30? 




303 




304 


000000 


305 


000001 


306 


000002 


307 


000003 


308 


000004 


309 


000005 


310 


000006 


311 


000007 


312 




313 




3U 




315 
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TITLE CZTMFFO TMA,B-11 SPLMTL INSTR 
ZZ - CZTMFFO 
JUNE 76 
R. BARNES 
ENABLE ABS,AMA 



.•REGISTER EOUIVS* 

R0=X0 
R1=X1 
R2=X2 
R3=X3 
RA=XA 
R5=X5 
SP=X6 
PC=X7 



.•TRAP CATCHERS* 



SEO 0008 



rZThFFO 


TMA,B-11 SPLMTL 




Di 1 1/^— Aiir.7B 
» 


516 




51 ' 




71 B 




71 Q 

51V 




5cU 








ice 












7DC 

5^3 




5c o 




5c ' 




75D 

5co 




75Q 

5cV 




5jU 


nnnnz. i 


771 

35 1 




77'D 

55^: 




5 J J 




77/. 




77^ 

55 J 


/WW. 5 hr.nnnn 


77A 

550 




777 




550 


UUv/U'«0 


77Q 

53^ 


(A>UU*tC5 UUclOv 


7/ r\ 




7/. 1 




7/.5 




7/. 7 




ILL 




7/ C 




7/ 














000100 


550 
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SEQ 0009 



.=40 

DRIVE: .8YTE 



100 



MODIFIED JAN 10 1978 
ACT 11 AND XXDP HOOKS 
$SVPC=. 

0 



.-41 
MEDIUM: .8VTE 



.-42 
.WORD 



.=46 
.WORD 

.-52 
.WORD 



SENDAD 

C 



.=$SVPt 



.•SAVE PC 



.•DRIVE * FOR XXDP LOAD MEDIUM 
.•ASSEn9LE AS A 0 



;XXDP LOAD MEDIIW 
.-ASSEPCLE AS A 0 



; AUTO/MAN MODE INDICATOR 
.-ASSEPCLE AS A 0 



;SCT TO SENDAD IN .$EOP 



.•CHARACTERISTICS OF PROGRAM 
;ASSE^BLE AS A 0 

.•RESTORE PC 
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351 
35? 
553 
35A 
355 
356 
357 
358 

359 0001 .X) 000000 

360 000102 000 

361 000103 000 

362 00010A 000 

363 000105 000 
36A 000106 000000 

365 000110 000000 

366 000^ 2 000000 
367 

368 
369 
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MODIFIED JAN 10 1978 
ACT11 AND XXDP MODE INDICATORS 



AUTOM: .WORD 
ACTUM: .eVTE 
XXDPM: 



ADUflPM 
XDUMPM 
ACT CNR 
T8L: 
TEMP4: 



BYTE 

.erTE 

• BYTE 
.WORD 
.WORD 
.WORD 



0 
0 
0 
0 
0 
0 
0 
0 



AUTOMATIC MODE INDICATOR 
ACT11 AJTO MODE INDICATOR 
XXDP AUTO MODE INDICATOR 
AC Til DUMP MODE INDICATOR 
XXDP DUMP MODE INDICATOR 
ACT MODE PASS COUNTER 
OFFLINE DEVICE POINTER 
TEMPO DEVICE POINTER 



* 
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370 
371 
372 
573 
574 
375 
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NOTE: PROGRAM HAS BEEN MODIFIED TO RUN WITH OR WITHOUT 
A HARDWARE SWITCH REGISTER-REFER TO DOCUMENT 
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;TTY INTERRUPT VECT0R********»» 

;TTy INTERRUPT HANDLER 



1 



376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 

396 000210 

397 0002K 
398 

399 
400 
401 

402 000224 

403 000226 
404 



000060 
000062 



000174 
000176 



000200 
000202 



000060 
004724 
000000 



0001 7^, 
000000 
000000 



000200 
005000 
000^37 

000210 
012700 
0001 37 



C00224 
004704 
000340 



001000 



000001 
001012 



SEO 0012 



.=60 
TTINT 
0 



.•SOFTWARE SWITCH REGISTER LOCATIONS* 

. = 174 
DISPREG:0 
SUREG: 0 



.STARTING ADDRESS***********^*** 

.=2:0 

CLR RO 

JMP START ;PR0G>W1 START 



.=210 
MOV 
JMP 



AI.RO 
RSTART 



;N0 HEADER START 
;TMA,8-11 INTERRUPT VECTOR********** 



.-224 
MTINT 
340 



;TAPE INTERRUPT HANDLER 
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405 
406 
407 

408 000600 

409 000602 

410 000604 

411 000606 

412 000610 

413 000612 

414 000614 

415 000616 

416 000620 

41 7 000622 

418 000624 

419 000626 

420 000650 

421 000632 

422 000634 

423 000636 
424 



000600 



172520 
1 72^22 
172524 
172526 
000000 
000020 
1 77760 
177776 
177570 
177570 
177560 
177562 
1 77564 
1 77566 
000010 
000004 
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SEO 0013 



.=600 

;C0NSTANTS********** 



MTS : 


1 7*5^ "DA 
\fdJC\J 


» T ADC CTATMC DCPTCTCD 


MTC . 


1 70';o^ 
\fCJCC , 




MT8C : 


1 f CJC'* 


> TADC DVTC rrM IkiT CD 


MToA; 


1 f CJCO , 


* TADC Dl IC Af\r\DCCC 






■ IHIITT f\C CTD T DT T ryu /DDC CC T f HD 1 Nil T T CW 








CCNT: 


-20 


•CHARACTER COUNT 


PSW: 


-[77776 


•PROCESSOR STATUS 




177570 


; CONSOLE SWITCH REGISTER 


DISPLAY 


: 177570 


; CONSOLE DISPLAY REGISTER 


TKS: 


177560 . 


•TTY READ STATUS 


T<8: 


177562 , 


•TTY READ BUFFER 


TPS: 


1 77564 , 


•TTY PUNCH STATUS 


'P8: 


177566 


•TTY OUTPUT BUFFER 


I TAMT : 


10 


•NUMBER OF ITERATIONS 


STALL : 


4 


;READY DELAY MULTIPLIER 
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.FLAGS 














000640 


OOuOOO 


TINF: 


0 


1 10 


0 )o42 


000000 


TOB: 


0 






000000 


TIB: 


0 




000646 


000000 


TEMPI 


0 




0006 -)0 


000000 


TEMP2 


0 




00065t: 


000000 


TEMP3 




000654 


000000 


EMADDR: 0 




0006 !>6 


000000 


cKHAU 


0 


45!> 


00066U 


000000 


1 T A f\r\ 
L 1 ADD 


n 
U 


43C) 


\aaJ(x>c 


000000 


T TDl D 


u 


/ T7 

*» Jf^ 


OUUdoh 


uouuou 


SPFLG 


0 




OUUooo 


OOOOOO 


STFLG 


0 




OUUO' u 


uuooou 


PCNTR 


0 


LLCS 


rtfw.75 




BADR: 


0 


LL'\ 


lAAJOf^M 


OOOOOO 


BYTES 


0 


LLO 




ooooou 


SCNT: 


0 




000700 


uouoou 


FUN: 


0 


LLL 


\AA/f<Jc 


uoouuo 


ITCNT 


0 




(W\7(\L 




CHCNT 


0 


LLf^ 






DERFL 


0 




nnn7in 




HDRFL 


0 






OOOvw 


PFlG: 


0 


Z.Z.O 


nnn7iz. 

U\AJf 1 0 




UNP- 


0 


*♦ j<j 




BCNl . 


0 








COUNT 


0 




\J\AJf CC 




TEMPST: 0 


•♦J J 


\I\AJr CM 




RDSW: 


0 






















H JO 








.-TEST 












H JO 


VVUr CD 


nnoonn 


TSTT81 


: 0 




fw>7"^n 

lAA/r 


nnnnnn 




0 




fWi7'^? 
\AAJi jC 


VA/CC JM 


HAD: 


LT1 


HO 1 


\J\rJ( JM 


\A/CC JM 


TIIAD 


LT1 


HOC 




UucmOc 


T2AD: 


LT2 


MO J 


0007A0 


\J\JC MOC 


T2IAD 


LT? 


464 




002704 


T3AD: 


LT3 


465 


000744 


003002 


T3IAD 


LT3IT 


466 


000746 


003134 


T4A0: 


LT4 


467 


000750 


00323? 


T4IAD 


LT4IT 


468 


000752 


OOOOOO 




0 


469 
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.-FLAGS AND COUNTERS********** 



SEO OOU 



ENTRY TA8LE' 
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MACY11 30A(105, 



470 
471 
472 
47? 

474 001000 

475 001006 

476 001012 

477 001020 

478 001024 

479 001030 

480 001034 

481 001042 

482 001050 

483 001052 

484 001054 

485 001056 

486 001064 

487 001072 

488 oonoo 

489 001104 

490 001110 

491 001116 
49? 001120 

493 001124 

494 001130 

495 001134 

496 001140 

497 001144 

498 001146 

499 001154 

500 001156 

501 001160 

502 001164 

503 001170 

504 001174 

505 001200 

506 001204 

507 001210 

508 001214 

509 001216 

510 001222 

511 001226 

512 001232 

513 001254 

514 001242 

515 001244 

516 001250 

517 001254 

518 001260 

519 001264 

520 001270 

521 001274 

522 001276 

523 001302 

524 001306 

525 00^312 



001000 



012737 
005037 
012777 
012706 
013746 
013746 
012737 
022777 
001402 
000412 
022626 
012737 
012777 
012737 
012637 
012637 
122737 
001006 
012704 
004737 
000137 
004737 
105737 
001051 
012777 
005700 
001402 
000137 
012704 
004737 
012704 
004737 
005037 
013703 
000303 
042703 
004737 
005737 
001404 
012737 
000503 
012705 
012701 
012702 
012703 
004737 
105737 
001421 
005037 
005037 
005037 
005037 



177570 
000106 
000340 
000500 
000006 
000004 
001054 
\77777 



000176 
004000 
0001 74 
000004 
000006 
000004 

007014 
005172 
002066 
006240 
000102 



000620 START; 
177576 RSTART 
SUSUR: 

000004 
177550 



1$: 

000620 2$: 

177526 

000622 

3$: 



000041 



4S: 



010000 177426 



001620 
006360 
005172 
006421 
005172 
000610 
000610 

1 77770 
005370 
000042 

000176 000620 

000652 
000001 
000007 
000000 
004734 
000102 

000610 
000652 
000112 
0001 1C 



5$: 

STO: 



1$: 



$ACT: 
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SEQ 0015 



.-1000 

******************************* 

;PROGRAW START AND HOUSEKEEPING 
******************************* 

MOV #177570. SUR .-PRESET TO CONSOLE SWITCHES 

CLR ACTCNR ;INIT PASS COUNTER C.W 

MOV *340.aPSW .-SET PRIORITY 

MOV *500.SP ;SET STACK POINTER 

MOV a*6.-(SP) .-SAVE VECTORS 

MOV a*4.-(SP) 

MOV #l$.a*4 ;SET UP FOR TIMEOUT 

CMP #-1.aSWR .-REFERENCE HARDWARE SWITCH REGISTER 

BEQ 2S 

BR 3$ 

CMP (SP) + . (SP)* .-ADJUST STACK 

MOV #SWREG.SWR .-POINT TO SOFTWARE SWITCH REG 

MOV *4000,aSWR .-DEFAULT TO MULTIPLE PASSES C.W 

MOV #DISPREG.DISPLAY;POINT TO SOFT DISPLAY REG 

MOV (SP) + .a#4 .-RESTORE VECTORS 

MOV (SP)+,a#6 

CMPe #4.a»41 ;TM-11 MAG TAPE? 

BNE 4$ ; IF NO . BR 

MOV /»MSG22.R4 

JSR PC.TTOUT .-LOADER TM-11 MAG TAPE 

JMP TEND .-END OP 

JSR PC.CKMODE .-CHECK FOR MODE OF OPERATION C.W 

TST8 ACTUM ;ACT11 MODE? C.W 

BNE $ACT .-BRANCH - IF YES C.W 

MOV *10000.a«TC .-POWER CLEAN 

TST RO .-SKIP HEADER? C.W 

BEQ 5$ ;8RANCH - IF NO C.W 

JMP ST4 .-GO DO TEST C.W 

MOV #MSG1.R4 ;GET HEADER MESSAGE C.W 

JSR PC.TTOUT :?RW\ HEADER 

MOV #MSG2,R4 .-GET REQUEST MESSAGE ♦+ C.W 

JSR PC.TTOUT .-REQUEST DRIVE NlfBER 

CLR UDES .-PRESET UNIT 0 

MOV U0ES,R3 .GET UNIT NlfOER 

SWAB R3 .-POSITION 

BIC #1 77770, R3 ;MASK UNIT NUMBER 

JSR PC.OCTP .-PRINT CURRENT VALUE 

TST a»42 .-CHAIN MODE? 

BEQ 1$ .IF NO. BR 

MOV #176.SWR .-STORE SWR 

BR ST1 

MOV #TEMP3.R5 ;SET SAVE LOCATION 

MOV *1.R1 .-SET SIZE OF ENTRY 

MOV *7.R2 .-SET UPPER LIMIT 

MOV #0.R3 .-SET LOWER LIMIT 

JSR PC.TTR .-GO GET UNIT NUPBER 

TST8 ACTUM .-ACT MODE? C.W 

BEQ NOACT .-BRANCH IF NO C.W 

CIR UDES ;INIT DEVICE POINTER C.W 

CLR TEMP3 .-INIT TEMPO LOCATION C.W 

CLR M**Pt^ .-INIT C.W 

CLR T8L ;INjr OFFI INE DEVICE POINTER C.W 



CZWFO 




n SPLIiTL 


INSTR 


MACVII 


30A(1052) 16- 


CZTMFF. 


P11 


I6-AUG-78 


08:48 








526 


001316 


122737 


000010 


000610 


ST: 




527 


001324 


001002 








BNE 


528 


001 526 


000137 


002112 






JMP 


529 


001332 


113737 


000610 


000652 


1$: 


MOVB 


530 


001 340 


000337 


000652 




kin A ^ T . 

NOACT : 


CI IAD 

SWAB 


531 


001344 


105037 


000652 






CLR8 


532 


001350 


042737 


003400 


000610 




Bi C 


535 


001356 


053737 


000652 


000610 




O f c 

BIS 


534 


001364 


013737 


000610 


000112 




nov 


535 


001372 


105037 


000112 






f 1 QO 

CLHo 


536 


001376 


1 52737 


000017 


000112 




BiS8 


537 


001404 


012777 


010000 


1 771 70 






538 


001412 


013777 


000112 


177162 




nov 


539 


001420 


005000 










5A0 


001422 


•105737 


000102 






T519 


5A1 


001426 


001011 










542 


001430 


022737 


0001 76 


000620 




crip 


543 


001436 


001005 










544 


001440 


005737 


000042 






T C T 


545 


001444 


001002 








BNc 


546 


001446 


004737 


005776 






f CD 


547 


001452 


032777 


000100 


177120 


5(1: 


D 1 T 

oi 1 


548 


001460 


001030 








DIkIC 

oNt 


549 


001462 


005300 








Del 


550 


001464 


001372 








BNc 


551 


001466 


105737 


000102 






T C TQ 

1 b la 


552 


001472 


001412 








Btu 


553 


001474 


105237 


000610 








554 


001500 


105237 


000110 






INLO 


555 


001504 


122737 


000010 


000110 






556 


001512 


001301 








BNt 


557 


001514 


005037 


000110 






r J D 


558 


001520 


012704 


006764 




1 c • 

1»: 


Mnt/ 

nov 


559 


001524 


004737 


005172 






i CD 


560 


001530 


005737 


000042 






TCT 


561 


001534 


001617 








□tu 


562 


001536 


000137 


002112 








563 


001542 


105737 


000102 




bic: 


TC TO 

lb IH 


564 


001546 


001411 










565 


001550 


032777 


000040 


1 77022 




D I T 
Bi 1 


566 


001556 


001774 








DC O 

BbO 


567 


001560 


013737 


000610 


0001 1 2 






568 


001566 


105037 


000610 






n DD 


569 


001572 


032777 


000020 


1 77000 




BI 1 


570 


001600 


001404 








Dcn 


571 


001602 


052737 


040000 


000610 




DfC 

DiS 


572 


001610 


000403 








DD 

BR 


573 


001612 


052737 


060000 


000610 




Die 

Bi b 


574 


001620 


000240 






C T/ - 


kino 


575 


001622 


012702 


000642 






nuv 


576 


001626 


012700 


000027 






MDU 


577 


001632 


005022 






ST 5: 


CLR 


578 


001634 


005300 








DfC 


579 


001636 


001375 








BNE 


580 


001640 


105737 


000102 






TST8 


581 


001644 


001002 








BNF 



0 2 
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SEQ 0016 



#10.UDES ;ALL UMTS DONE? C.W 

1$ .-BRANCH - IF NO C.W 

SDONE ;D0 END OF PASS C.W 

UDES.TEMP3 ;GET UNIT NUMBER C.W 

TEI1P3 .-POSITION UNIT NUfBER 

TE/1P3 ;GET RID OF GARBAGE C.W 

#3400, UOES .-CLEAR OLD NITBER 

TEMP3.U0ES .-LOAD NEW NUMBER 

UDES,TEMP4 ;SAVE Nl/BER C.W 

TEW»4 .-KEEP BITS 8,9.10 C.W 

#17JEMP4 .SET REWIND C0W1AND C.W 

#10000, aMTC ;POWER CLEAN 

TEMP4,aMTC .-SELECT UNIT 
RO 

ACTUM .-ACT MODE? ♦+ C.W 

ST1 .-BRANCH - IF YES C.W 

#SWREG,SUR 

ST1 

a#42 ;AUTO MODE? C.W 

ST1 .-BRANCH - IF YES ++ C.w 

PC.CNTLU 

#100.aMTS .-SEE IF SELECT REMOTE 

ST2 .-IF SO: BR 

RO 

ST1 .-DELAY FDR SELECT REMOTE 

ACTUM .-ACT MODE? C.W 

1$ .-BRANCH - IF NO C.W 

UDES .-STEP TO NEXT UNIT C.W 

T8L .-OFFLINE UNIT COUNT C.W 

#10,T8L .ALL LWITS DOf€? C.W 

ST .-BRANCH - IF NO C.W 

T8L .-REINIT OFFLINE UNIT COLWT +•» C.W 

#MSG21 .R4 

PC. T TOUT .-PRINT NOT AVAILABLE 

a#42 .-SEE IF CHAIN MODE 

STO ;IF NO, BR 

SDONE .-END OP 

ACTUM .-ACT MODE? C.W 

1$ .-BRANCH - IF NO C.W 

#40.aMTS ;80T? C.W 

2$ .-BRANCH - IF NO +♦ C.W 

UDES,TEMP4 .-SAVE OLD DEVICE NUMBER C.W 

UOES ,-KEEP BITS 8,9,10 +♦ C.W 

#20,aMTS .-SEE IF 7 CHANNEL 

ST3 ;IF NOT: BR 

#40000.UDES .-SET TO 800 BPI 7 CHAN 

ST4 

#60000, UDES ,-SET TO 800 BPI 9 CHAN 

#T06,R2 ;6ET S^ART OF TABLE 

#27,R0 .-SET SIZE OF TABLE 

(R2)* ;CLEAR TABLE 
RO 

ST5 ;D0 ALL 

ACIIM ;ACT MODE? C.W 

TSCD .-BRANCH - IF YES C.W 



E 2 
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582 001646 005037 000670 CLR PCNTR ; CLEAR PASS COUNTER 

583 
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585 








586 


001652 


000240 




587 


001 65A 


005037 


000666 


COO 

588 


001660 


017700 


1 76734 


C Of\ 

589 


001664 


042700 


1 77700 


590 


001670 


005^00 




591 


001672 


001050 




COT 

592 


001 67A 


012737 


000726 


COT 

593 


001702 


062737 


000004 


coy 

59<i 


001710 


01 3737 


000660 


coc 

595 


001716 


062737 


000002 


CO^ 

596 


001 72A 


005777 


1 76730 


C07 

597 


001 730 


001002 




COO 

598 


001732 


000137 


002066 


599 


001736 


005037 


000710 


600 


0017^2 


017700 


176712 


oOi 


001 ^A6 


000110 






001750 


004737 


005724 


605 


001 75A 


032777 


002000 


60^ 


001762 


001401 




605 


001764 


000000 




606 


001766 


004737 


005724 


607 


001772 


005737 


OOO066 


6Uo 


001776 


001741 




^/%o 

609 


002000 


017700 


176614 


6i0 


0C2004 


042700 


1 77760 


^1 1 
6 1 1 


002010 


005700 




61Z 


002012 


001717 




61 3 


0020K 


012737 


000001 


61 *» 


002022 


022700 


000005 


615 


002026 


005417 




6 ID 


002030 


000241 




61 f 


002032 


006100 




olo 


002034 


006100 




619 


002036 


012737 


000726 


6^:0 


002044 


060037 


000660 


6^1 


002050 


013737 


000660 


bide 


002056 


062737 


000002 


6^5 


002064 


000724 




62*1 


002066 


105737 


000102 


625 


002072 


001407 




626 


002074 


113737 


000112 


ocr 


002102 


105237 


000610 


62o 


0021 C6 


000137 


001316 


629 


002112 


012704 


006440 


630 


002116 


004737 


005172 


63 1 


002122 


105737 


000102 


632 


002126 


001404 




633 


002130 


013703 


000106 


63*» 


002134 


004737 


005370 


AT*; 

O J J 


002140 


013703 


000670 


636 


002144 


004737 


005370 


637 


002150 


013703 


00004? 


638 


002154 


001405 




639 


002^56 


000005 





TSCD: 



000660 
000660 
000662 
000662 



1 76636 



TSCDO: 

TSCD1 : 
TSCD2: 

TSCD3: 



000666 STSCD: 



000610 



TEND: 



$D0NE; 



1$: 



.•TEST 

NOP 

CLR 

MOV 

9IC 

TST 

BNE 

MOV 

ADD 

MOV 

ADD 

TST 

BNE 

JMP 

CLR 

MOV 

JMP 

JSR 

BIT 

8EQ 

HALT 

JSR 

TST 

BEQ 

MOV 

SIC 

TST 

BEQ 

MOV 

CMP 

BLE 

CLC 

ROL 

ROL 

MOV 

ADD 

MOV 

ADD 

BR 

TST8 

BEQ 

M0V8 

INC8 

JMP 

MOV 

JSR 

TST8 

BEQ 

MOV 

JSR 

MOV 

j<;r 

MOV 
8EQ 

RE SE T 
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SEC 0018 



SCHEDULAR********** 



STFLG 
aSWR.RO 
#1 77700, RO 
RO 

STSCD 

#TSTT8L.LTADD 

*4.LTADD 

LTADD.JTRLP 

#2.JTRLP 

aLTADD 

TSCD1 

TEND 

HDRFL 

3LTADD.ro 

(RO) 

PC-CKSWR 

#2000, asuR 

TSCD3 

PC.CKSWR 

SVLG 

TSCDO 

aSUR.RO 

#1 77^60, RO 

RO 

TSCD 

#1. STFLG 

#5.R0 

TEND 

RO 
RO 

#TSTT8L.LTADD 

RO.LTADD 

LTADD,ITRLP 

#2,JTRLP 

TSCD1 

ACTUM 

(DONE 

TEMP4,UDES 

UDES 

ST 

*MSG3.R4 

PC. T TOUT 

ACTUM 

1$ 

ACTCNR.R3 

PC.OCTP 

PCNTR.R3 

PC.OCTP 

a*4?.R3 



.•CLEAR SINGLE TEST FLAG 

;GET SWITCH REGISTER 

;MASK TEST SELECT 

.-SEE IF SINGLE TEST SELECT 

;IF SO: BR 

.-GET TABLE START 

.•SET ITERATION ADDRESS 

.-SEE IF END OF CYCLE 
;IF NOT: BR 
;G0 TO END ROUTINE 
.•CLEAR HEADER FLAG 
;GET TEST ADDRESS 
;G0 TO TEST 

.'SEE IF HALT ON TEST 
;IF NOT: BR 

;G0 TEST FOR *G 
.-SEE IF SINGLE TEST 
;IF NOT: BR 

.-GET TEST NLTBER 
.-SEE IF ALL TESTS 
'IF SO' BR 

;SET SINGLE TEST FLAG 

.SEE IF EXCEEDED TEST NlfBER 

;IF SO: BR 



.•POSITION NlMBER 
;6ET START OF TABLE 
;SET POINTER 

.-SET ITERATION ADDRESS 

;G0 DO TEST 

;ACT11 MODE? C.W 

.-BRANCH - IF NO C.W 

.-RESTORE DRIVE NlfBER ♦+ C.W 

.-GET NEXT UNIT C.W 

;G0 TEST NEXT UNIT C.W 

.•PRINT END OF PASS 

;ACT mode; C.W 

.•BRANCH - NO C.W 

;6ET ACT PASS COUNT C.W 

; PRINT PASS NUMBER 

.GET PASS NUMBER C.W 

.•PRINT PASS NUMBER C.W 



CZTWi^n r^lA.B-TI SPLMTL INSTR 



, 7TMC r 


D1 1 


1 A— Al iT — 7fl 
1 O MUVj"/ 0 


UO - hO 




UUc lOU 


nru. 71 ^ 

UVH f 1 J 




Oh I 


nn5i A5 

lA/c <Oc 


UIA/chU 






UUc IOh 


UUUchU 




Oh J 


nn7i AA 

UUc lOO 


VAAJchU 






nn5i 7fS 


\JjCi I f 


ofvnnfi 

Uv/Hwwv 


Oh3 


rm^i 7A 

UUc 1 » O 






OhO 




n/vvSnn 






ftn55n5 


1 n^7T7 

1 \jjf ji 


nnni n? 

Uv/v 1 vc 


OHO 








Oht 


\AJCC < w 




>JV/ J ' CH 


OjU 


\JUCC IH 




Uvvv) ' V 


O J 1 




nnni '^7 




OjC 


VA/CCCH 


VA/3c J' 




OJ J 




<WI1 77 


nni ?7n 


O JH 








































D JT 
















uo 1 


































V/V/Cc JH 












007103 




VVCCHH 


01P70? 


007P54 




VA/cc JV/ 




000^77 




V/VCC JH 


W -/ vW 




A7n 

Or \/ 


L/V/CC JO 


1 100P? 

1 I VA/C C 




Of 1 


VA/CCDv 


vv vv 




Of c 


nopp6P 


\JCC f \J\J 


nooooA 


O' -> 




00177^ 








004737 


00334? 


A71 




01P737 


000004 

VjV/vV/V** 


A7A 




01P737 


007PSS 


Of ' 




ni?737 


1 7777? 


A7R 

Of o 




01 P777 


00AAA4 

V/V/ULHJ** 




00P^?4 


004737 


003620 




v/V/c J-Jv 


000P40 






v/V/c J J£ 


004737 


OOZiOSO 






012737 


1 77777 

iff' ft 




v/vc 


00^777 




oo*« 




01P70? 


0077Sft 

\J\j f J J\J 


DO J 




01P700 

V/ 1 C « v/v 


000010 


AAA 




01 P7PP 


'\77777 

\ f f f f f 


A87 








DOO 


OOP%A 


001^74 






007^70 

v/V/t V 


01 P777 


00000? 

VVA/V/V/C 


690 


002376 


012737 


007356 


691 


002A04 


012737 


1 77172 


692 


002472 


012737 


006701 


693 


002420 


004737 


003620 


694 


002424 


000240 




695 


002426 


004 737 


004050 



l^CYll 30A(105, 
SENDAD 

1 76422 HERE • 
TENDX: 

1$: 



000654 



LT1: 



LTIB: 



000700 
000672 
0006^4 
000656 



000676 



LTiC; 



LTID: 



000700 
000672 
000674 
000656 



G 2 
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SEO 0019 







NOP 




NOP 








fil T 


#4000 a^UR 




TENDX 


HALT 




TST8 


ACTUM 


BNE 


1$ 


JSR 


PC.CKSWR 


INC 


PCNTR 


JW> 


TSCD 


INC 


ACTCNR 


J»1P 


SACT 



;SEE IF HALT ON PASS 
;IF NOT: BR 

ACT MODE? C.W 
BRANCH - IF YES C.W 
60 TEST FOR "6 
BlfF PASS COUNTER 
RESTART 

BUMP PASS COUNTER IN ACT MODE 
RESTART IN ACT MODE C.W 



C W 



TEST 1 : WRITE FROM ODD BYTE 

THIS TEST WILL WRITE A SIX (6) BYTE RECORD 
FROM AN ODD BYTE STARTING ADDRESS. THE RECORD 
WILL BE READ BACK INTO AN EVEN STARTING ADDRESS 
TO TEST FOR PROPER TRANSFER. 
************************************* 



NOP 






MOV 


#LT1MSG.EMADDR .-SET HEADER 


MOV 


*UDATA,R2 ;GET BUFFER START 


M0V8 


*377,(R2)* .-INSERT BACKGROUND DATA 


CLR 


PO 




M0V8 


R0.(R2)* 




INC 


RO .-LOAD WRITE BUFFER (0.1,2. 


CMP 


#6,R0 




BNE 


LT1Q 




JSR 


PC ,RWND 


GO REWIND 


MOV 


#4, FUN 


SET WRITE FUNCTION CODE 


MOV 


#WDATA*1 ,BADR 


SET DATA POINTER 


MOV 


#-6,8YTES 


SET SIZE OF RECORD 


MOV 


*MSG17,ERRAD 


■SET WRITE ERROR CODE 


JSR 


PC. EXEC 


•60 EXECUTE COMMAND 


NO^ 






JSR 


PC.ERCHK :G0 CHECK FOR STATUS ERROR 


MOV 


#-1.SCNT 




JSR 


PC.BKSP ;G0 BACKSPACE ONE RECORD 


MOV 


4fRDATA,R2 




MOV 


#10.R0 




MOV 


#-1.(R2H .-BACKGROUND READ BUFFER 


DEC 


RO 

LT1D 




BNE 


•DO ALL 


MOV 


#2.Fug 


■SET READ FUNCTION CODE 


MOV 


#RDATA,BADR 


•SET READ POINTER 


MOV 


#-6.8YTES 


■SET SIZE OF RECORD 


MOV 


*MSG18,ERRAD 


■SET READ ERROR CODE 


JSR 


PC. EXEC 


■60 DO READ 


NOP 






PC.ERCHK ;G0 ChEC»( tRRORS 
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696 002432 

697 002436 

698 002442 

699 002446 

700 002452 
70"' 002456 



012701 
012702 
012700 
004737 
004737 
000137 



0072S5 
007356 
000006 
004336 
00^626 
001 75C 
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MOV 
MOV 
MOV 
JSR 
JSP 
JMP 



irWDATA*1 .R1 

#RDATA.R2 

#6.R0 

PC.DCHK 

PC. ITER 

TSCD? 



SEO 0020 



SET EXPT DATA POINTER 
SET RCVD DATA POINTER 
SET SIZE OF RECORD 
GO CHECK DATA 
GO SEE IF ITERATIONS 
RETURN TO SCHEDULAR 



CZTMfFO 


.MA.8- 


n SPLMTL 


INSTR 


MACY11 


CZTMfF.PlI 


16-AUG-78 08:48 




702 










70^ 










7CK 










705 










706 










707 










708 










709 










710 










711 


002462 


000240 






712 


002464 


012737 


007141 


000654 


713 


002472 


012702 


007254 




714 


002476 


005000 






715 


002500 


110022 






716 


002502 


005200 






717 


002504 


022700 


000006 




718 


002510 


001373 






719 


002512 


004737 


003342 




720 


002516 


012737 


000004 


000700 


721 


002524 


012737 


007254 


0006 ''2 


722 


002532 


012737 


1 77772 


000674 


723 


002540 


004737 


003620 




724 


002544 


000240 






725 


002546 


012737 


006664 


0006 !>6 


726 


002554 


004737 


004050 




727 


002560 


012737 


"[77777 


OOVtrt 


728 


002566 


004737 


003526 




729 


002572 


012702 


007356 




730 


002576 


012700 


000010 




731 


002602 


012722 


1 77777 




732 


002606 


005300 






733 


002610 


001374 






734 


002612 


012737 


000002 


000700 


735 


002620 


012737 


007357 


0006 ^2 


736 


002626 


012737 


1 77772 


0006 /'A 


737 


002634 


004737 


003620 




738 


002640 


000240 






739 


002642 


012737 


006701 


000630 


740 


002650 


004737 


004050 




741 


002654 


012701 


007254 




742 


002660 


012702 


007357 




743 


002664 


012700 


000006 




744 


002670 


004737 


004336 




745 


002674 


004737 


004626 




746 


002700 


000137 


001 750 




747 











LT2: 



LT2e 



LT2C 



Lr2D 



Lr2E 
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TEST 2: READ IN^O ODD BYTE 

THIS TEST WILL WRITE A SIX (6) BYTE RECORD 
FROM AN EVEN BYTE STARTING ADDRESS. THE RECORD 
WILL BE READ BACK INTO AN ODD STARTING ADDRESS 
TO TEST FOR PROPER TRANSFER. 
************************ 



NOP 






MOV 


#LT2MSG.EMADDR 


;SET HEADER POINTER 


MOV 


#WDATA,R2 


.•POINT TO START Of WRITE BUFFER 


CLR 


RO 




M0V8 


R0,(R2)* 


.•LOAD DATA PATTERN 


INC 


RO 


;8lff> PATTERN 


CMP 


#6,R0 


.-SEE IF DONE 


BNE 


L.T2I3 


;IF NOT: BR 


JSR 


PC.RWND 


;G0 REWIND TO BOT 


MOV 


*4,FUN 


;SET WRITE OP-CODE 


MOV 


#WDATA,BADR 


;SET STARTING ADDRESS 


MOV 


#-6.8YTES 


.-SET SIZE OF RECORD 


JSR 


PC. EXEC 


;G0 EXECUTE COMMAND 


NOf- 






MOV 


#MS617.ERRAD 


;SET ERROR CODE 


JSR 


PCERCHK 


;60 CHECK FOR STATUS ERROR 


MOV 


#-1,SCNT 




JSR 


PC,8KSP 


;G0 BACKSPACE ONE RECORD 


MOV 


#RDATA,R2 


;GET READ BUFFER POINTER 


MOV 


#10,R0 


.SET SIZE 


MOV 


#-1.(R2)* 


.-BACKGROUND POINTER 


DEC 


RO 


:SEE IF DONE 


BNE 


LT2D 


'IF NOT: BR 


MOV 


#2. FUN 


•SET READ FUNCTION CODE 


MOV 


#RDATA*1.BADR 


;SET START OF READ BUFFER 


MOV 


#-6.8yTES 


.-SET SIZE OF RECORD 


JSR 


PC. EXEC 


:60 EXECUTE COMMAND 


NOP 






MOV 


4fMS618,ERRAD 


.-SET ERROR CODE 


JSR 


PC.ERCHK 


.GO CHECK FOR STATUS ERROR 


MOV 


#W0ATA,R1 


.•POINT TO EXPT DATA 


MOV 


#RDATA*1 ,R2 


.•POINT TO RCVD DATA 


MOV 


#6.R0 


.SET SIZE OF RECORD 


JSR 


PC,DCH< 


;60 CHECK DATA 


JSR 


PC .ITER 


;G0 SEE IF ITERATION 


JMP 


TSCD2 


.•RETURN TO SCHEDULAR 



CZTMf FO 


THA.B- 


11 SPLMTL 


INSTR 


MACrll 


CZT»1FF . 


P11 
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748 




















750 










751 










75? 










753 










754 










755 










756 










757 










758 










759 


002704 


000240 






760 


002706 


012737 


007174 


000654 


761 


002714 


012700 


000151 




762 


002720 


004737 


003342 




763 


002724 


012737 


000014 


000700 


764 


002732 


012737 


007254 


000672 


765 


002740 


012737 


1 ^7760 


000674 


766 


002746 


004737 


003620 




767 


002752 


012737 


006664 


000656 


768 


002760 


004737 


004050 




769 


002764 


012737 


1 77777 


000676 


770 


002772 


004737 


003526 




771 


002776 


005300 






772 


003000 


001351 






77Z 


003002 


000240 






771* 


003004 


004737 


003342 




77S 


003010 


012737 


000500 


000636 


776 


003016 


012737 


007356 


000672 


777 


003024 


012737 


1 77760 


000674 


778 


003032 


012737 


000002 


000700 


779 


003040 


012737 


006715 


000656 


780 


003046 


004737 


003620 




781 


003052 


000240 






782 


003054 


012737 


000004 


000636 


783 


003062 


052777 


000400 


175510 


784 


003070 


001007 






785 


001072 


012737 


000001 


000664 


786 


003100 


004737 


004126 




787 


003104 


005037 


000664 




78g 


003110 


012737 


000002 


000634 


789 


003116 


004737 


004626 




790 


003122 


012737 


000010 


000634 


791 


0031 30 


000137 


001750 




79? 











.T3; 



LT3IT: 



LT3C; 
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TEST 3: OPI TOO LONG 

THIS TEST WILL ERASE APPROXIMATELY THIRTVFIVE (35) 
FEET OF TAPE BY WRITING WITH IR6- BACKSPACING 
AND REPEATING THE SEQUENCE 105(10) TIMES. TAPE 
WILL REWIND AND A READ FORWARD ISSUED. THE 
OPI TIMER SHOULD SHUTDOWN THE LWIT BEFORE 
REACHING THE FIRST RECORD ON TAPE. 
************************ 



NOP 
MOV 
MOV 
JSfi 
MOV 
MOV 
MOV 
JSR 
MOV 
JSR 
MOV 
JSR 
DEC 
BNE 
NOP 
JSR 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
NOP 
MOV 
BIT 
BNE 
MOV 
JSR 
CLR 
MOV 
JSR 
MOV 
JMP 



#LT3MSG,E«ADDR 

#151, RO 

PCRWND 

#14, FUN 

iirWDATA,BADR 

#-20,8YTES 

PC, EXEC 

*MSG17,ERRAD 

PC.ERCHK 

#-1.SCNT 

PC.8KSP 

RO 

LT3A 

PC.RWND 
*500, STALL 
#RDATA,BADR 
#-20,8YTES 
#2. FUN 
«nSG19,ERRAD 
PC. EXEC 

#4 .STALL 
#460.aMTS 

LT3X 

#1,SPFLG 

PCERPT 

SPFLG 

*2,JTA«T 

PC. ITER 

#10,ITA«T 

TSCD2 



SET TEST HEADER 

SET NUMBER OF WRITE IRG/BACKSPACE 

GO REWIND UNIT 

SET WRITE IRG FUNCTION CODE 

SET BUS ADDRESS 

SET SIZE OF RECORD 

GO EXECUTE COWAND 

SET ERROR CODE 

60 CHECK FOR STATUS ERROR 

GO BACKSPACE ONE RECORD 
SEE IF DONE ALL 
IF NOT; BR 

60 REWIND 

SET OPI STALL 

SET START OF READ BUFFER 

SET SIZE OF RECORD 

SET READ FUNCTION CODE 

SET ERROR CODE 

60 EXECUTE COMMAND 

RESET NORMAL STALL 
SEE IF BTE IS SET 
IF SO: BR 

SET NO BA PRINT FLAG 
60 PRINT ERROR 
RESET FLAG 

SET TO TWO (2) ITERATIONS 
60 SEE IF ITERATION 
RESET ITERATIONS 
RETURN TO SCHEDULAR 



CZTMFFO 
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793 




















795 










796 










797 










798 










799 










800 










801 










802 










805 










80A 


0031 5^ 


000240 






805 


003' 56 


012737 


007223 


000654 


806 


003UA 


004737 


003342 




807 


003" 50 


012700 


000062 




808 


0031 5A 


012737 


000014 


000700 


809 


003162 


012737 


007254 


000672 


810 


003170 


012737 


1 /7760 


000674 


811 


003176 


012737 


006664 


000656 


812 


00320A 


004737 


003620 




813 


003210 


004737 


004050 




8U 


0032U 


012737 


-[77777 


000676 


815 


003222 


004737 


003526 




816 


003226 


005300 






817 


003230 


001351 






818 


003232 


000240 






819 


00323A 


004737 


003342 




820 


003240 


012737 


000500 


000636 


821 


003246 


012737 


007356 


000672 


822 


003254 


012737 


177760 


000674 


823 


003262 


012737 


000002 


000700 


824 


003270 


012737 


006740 


000656 


825 


003276 


004737 


003620 




826 


003302 


004737 


004050 




327 


003306 


000240 






828 


003310 


012737 


000004 


000636 


829 


003316 


012737 


000002 


000634 


830 


003324 


004737 


004626 




831 


003330 


012737 


000010 


000634 


832 


003336 


000137 


001750 





LT4; 



L148: 



LT41T; 



LT4C: 
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TEST 4: OPI TOO SHORT 

THIS TEST WILL ERASE APPROXIMATELY SIXTEEN (16) FEET 
OF TAPE BY WRITING WITH IRG, BACKSPACING 
ONE (1> RECORD AND REPEATING THIS SEQUENCE 
50(10) TIMES. TA^E WILL REWIND AND BE READ 
FORWARD. THE FIRST RECORD ON TAPE SHOULD BE 
REACHED BEFORE OPI TIMES OUT. 
************************ 



NOP 
MOV 
JSR 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
JSR 
MOV 
JSR 
DEC 
BNE 
NOP 
JSR 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
JSR 
NOP 
MOV 
MOV 
JSR 
MOV 
JMP 



*LT4MSG,EMADDR 

PC.RWND 

#65.RO 

#14. FUN 

#WOATA,BADR 

#-20,8YTES 

*MSG17.ERRAD 

PC. EXEC 

PC.ERCHK 

#~1,SCNT 

PC.8KSP 

RO 

LT4A 

PC.RO^D 
*500. STALL 
#RDATA.8ADR 
*-20.8VTES 
<'2.FUN 
#MSG20.ERRAD 
PC. EXEC 
PC.ERCHK 

*4, STALL 
#2,ITAMT 
PC -ITER 
flO.ITAMT 
TSCD2 



SET HEADER 
GO REWIND 

SET NLrBER OF WRITE IRG/BACKSPACES 

SET WRITE IRG FUNCTION CODE 

SET START OF WRITE BUFFER 

SET SIZE OF RECORD 

SET ERROR CODE 

GO EXECUTE COMMAND 

GO CHECK FOR STATUS ERROR 

GO BACKSPACE ONE RECORD 
SEE IF DONE ALL SEQUENCES 
IF NOT; BR 

REWIND 

SET OPJ STALL 

SET START OF READ BUFFER 

SET SIZE OF RECORD 

SET READ FUNCTION CODE 

SET ERROR CODE 

60 EXECUTE COMMAND 

60 CHECK FOR STATUS ERRORS 

RESET NORMAL STALL 
SET TO TWO (2> ITERATIONS 
60 SEE IF ITERATIONS 
RESET ITERATIONS 
RETURN TO SCHEDULAR 



CZTMFFO TNA,B-11 SPLMTL INSTR 
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833 
83A 

835 003342 

836 003344 

837 003352 

838 003360 

839 003362 

840 003370 

841 003374 

842 003376 

843 003404 

844 003406 

845 003414 

846 003416 

847 003424 

848 003426 

849 003432 

850 003436 

851 003442 

852 003446 

853 003452 

854 003456 

855 003462 

856 003466 

857 003472 

858 003476 

859 003502 

860 003506 

861 003512 

862 003514 

863 003516 

864 003522 

865 003524 
866 

867 
868 

869 003526 

870 003530 

871 003536 

872 003544 

873 003552 

874 003556 

875 003560 

876 003566 

877 003570 

878 003576 

879 003604 

880 003610 

881 003614 

882 003616 
883 



000240 
013777 
032777 
001056 
052777 
105777 
100375 
032777 
001774 
032777 
001040 
032777 
001030 
013704 
004737 
012704 
004737 
012704 
004737 
017703 
004737 
012704 
004737 
017703 
004737 
005777 
100001 
000000 
004737 
000240 
000207 



000240 
013777 
013777 
052777 
105777 
100375 
032777 
001774 
012737 
012737 
004737 
005037 
000240 
000207 



000610 
000040 

000017 
175206 

000001 

000040 

020000 

000654 
005172 
006460 
005172 
006510 
005172 
175116 
005360 
006517 
005172 
175100 
005360 
175106 



005724 



000610 
000676 
000013 
1 75024 



MACY11 30A(105; 



RWND: 

175230 
175220 

175212 

1$: 

175174 RWND1 

175164 

175174 



1 75044 
175040 
175030 



RUNDX: 
RUNDXX 

BKSP: 



1$: 

000001 175012 BKSPl: 



000001 
006546 
004050 
000664 



000664 
000656 
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.-REWIND SUBPOUTINE********** 
NOP 

MOV UDES,aMTC .-SELECT UNIT 

BIT *40.aMTS .-SEE IF AT SOT 

BNE RUNDXX ;IF SO: BR 

BIS #17.aMTC .-START REWIND 

TST8 aMTC 

BPL 1$ .-AWAIT CUR 

BIT #1.aMTS .-AWAIT TUR 

BEQ RWND1 

BIT #40,a«TS .-SEE IF BOT SET 

BNE RWNDXX ;IF SO: BR 

BIT *20000,aSWR ;SEE IF PRINT ERROR 

BNE RWNDX ;IF NOT: BR 

MOV EMADDR,R4 

JSR PCTTOUT .-PRINT HEADER 

MOV /WSG4.R4 

JSR PC.TTOUT .-PRINT REWIND ERROR 

MOV #MSG5,R4 

JSR PCTTOUT .-PRINT MTS TAG 

MOV aMTS.R3 

JSR PC.OCTPE .-PRINT MTS 

MOV #MSG6,R4 

JSR PC.TTOUT .-PRINT MTC TAG 

MOV aMTC.R3 

JSR PC.OCTPE .-PRINT MTC 

TST aSUR .-SEE IF HALT ON ERROR 

BPL RWNDXX ;IF NOT: BR 

HALT 

JSR PC.CKSWR ;G0 TEST FOR *G 

NOP 

RTS PC .-RETURN 
.•BACKSPACE SL8R0UTINE********** 
NOP 

MOV UDES.aMTC .-SELECT UNIT 

MOV SCNT.aWTBC ;SET NUMBER OF RECORDS TO SPACE 

BIS #13. aMTC .-START SPACE REVERSE 

TST8 aMTC 

BPL If .-AWAIT CUR 

BIT #l,aMTS 

BEO BKSPl .-AWAIT TUR 

MOV #1,SPFLG .-SET SPACE FLAG 

MOV #MSG9.ERRAD 

JSR PC.ERCHK ;G0 CHECK FOR ERROR 

CLR SPFL6 .-CLEAR SPACE FLAG 

NOP 

RTS PC .-RETURN 
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884 










885 










886 


003620 


000240 






887 


003622 


005005 






888 


003624 


032777 


000200 


174750 


889 


003632 


001021 






890 


003634 


005305 






891 


003636 


001 372 






892 


003640 


005737 


000710 




895 


003644 


001004 






894 


003646 


013704 


000654 




895 


003652 


004737 


005172 




896 


003656 


012704 


006571 




897 


003662 


004737 


005172 




898 


003666 


005777 


174726 




899 


003672 


100001 






900 


003674 


000000 






901 


003676 


004737 


005724 




902 


003702 


000240 






903 


003704 


013777 


000610 


1 74670 


904 


003712 


013777 


000672 


1 74666 


905 


003720 


013777 


000674 


174656 


906 


003726 


013701 


000700 




907 


003732 


052701 


000101 




908 


003736 


050177 


174640 




909 


003742 


000240 






910 


003744 


005077 


174646 




911 


003750 


013737 


000636 


000646 


912 


003756 


005001 






913 


003760 


005301 






914 


003762 


001376 






915 


003764 


005337 


000646 




916 


003770 


001373 






917 


003772 


032777 


020000 


"1 74620 


918 


004000 


001013 






919 


004002 


005737 


000710 




920 


004006 


001004 






921 


004010 


013704 


000654 




922 


004014 


004737 


005172 




923 


004020 


012704 


006606 




924 


004024 


004737 


005172 




925 


004030 


005777 


174564 




926 


004034 


100001 






927 


004036 


000000 






928 


004040 


004737 


005724 




929 


004044 


000240 






930 


004046 


000207 






931 
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EXEC: 
EXE(;0: 



EXECl 



EXEC2: 



EXEC3: 



EXEC4: 
EXECX: 

EXECXX: 



.•COMMAND EXECUTE SUBROUTINE* 



Kino 
















• cpp IF nib 


BMP 


pypf 5 


. i r ov • on 




R^ 




BMP 




• FF MOT ■ RR 


1 O 1 




-^FF IF DQNF HFADFR 






- IF ^n- BR 

» i r ow • on 


MOW 






Jon 


PC TinilT 


■Fl ^F PRINT MFADFR 


nuv 






i^R 


PC TTOilT 


-PRINT NOT RFADV FRROR 


T^T 




•^FF IF HAt T ON FRROR 


API 


PXFf 2 


-IF NOT- BR 


MAI T 






J on 


Pr TK^UR 


•GO TF^T FOR *G 


NOP 






MOV 


UDES aMTC 


; SELECT UNIT 




RADR aMTBA 


•SFT BUS MEMORY ADDRESS 






•SFT BYTE COUNT 




FUN r1 


."GET FUNCTION 




#101 R1 


•SET IN GO BIT AND INTERRUPT 


BIS 


RI aMTC 


•LOAD COMMAND-t^GO-t-IE 


NOP 








3PSW 


'ALLOW INTERRUPTS 


MOV 


STALL TEMPI 


•SET READY STALL 




Rl 






Rl 






FXFC3 


•AWAIT INTERRUPT 


DFC 


TFMP1 






EXEC3 




BIT 


#20000 aswR 


•SEE IF PRINT ERROR 


BNE 


FXECX 


;IF NOT: BR 


TST 


HDRFL 


•SEE IF DONE HEADER 




EXEC4 


•IF SO- BR 


MOV 


EMADDR.R4 




JSR 


PC. T TOUT 


.-PRINT HEADER 


MOV 


#MSG1 1 ,R4 




JSR 


PC. T TOUT 


.-PRINT NO INTERRUPT MESSAGF 


TST 


SSWR 


.-SEE IF HALT ON ERROR 


BPL 


EXECXX 


;IF NOT: BR 


HALT 






JSR 


PC.CKSWR 


.-GO TEST FOR *G 


NOP 






RTS 


PC 


.-RETURN TO CALLER 



CZTMf FO 




P SPLMTL 


INSTR 


MACYll 30A(1052: 


16- 


CZTWF.Pr 


16-AUG-78 


08:48 






932 










;STA1 


933 












93A 


004050 


005777 


174526 


ERCHK: 


TST 


935 


004054 


100002 






BPL 


936 


004056 


000137 


00^.126 




JMP 


937 


004062 


005 > 77 


174516 


ERCHKl : 


TST 


938 


004066 


001402 






BEQ 


939 


004070 


000137 


004126 




JW 


9^0 


004074 


013703 


000674 


ERCHK2: 


MOV 




004100 


005403 






NEG 


942 


004102 


063703 


000672 




ADD 


9<.3 


004106 


005737 


000664 




TST 


94A 


004112 


001401 






BEQ 


945 


004114 


000207 






RTS 


946 


004116 


020377 


1 74464 


ERCHK3 : 


CMP 


947 


004122 


001001 






BNE 


948 


004124 


000207 






RTS 


949 


004126 


000240 




ERPT : 


NOP 


950 


004130 


032777 


020000 


1 74462 


BIT 


951 


004136 


001067 






BNE 


952 


004140 


005737 


000710 




TST 


953 


004144 


001006 






BNE 


954 


004146 


013704 


000654 




MOV 


955 


004152 


004737 


005172 




JSR 


956 


004156 


005237 


000710 




INC 


957 


004162 


013704 


000656 


ERPT1 : 


MOV 


958 


004166 


004737 


005172 




JSR 


959 


004172 


012704 


006510 




MOV 


960 


004176 


004737 


005172 




JSR 


961 


004202 


01 7703 


^ 7^172 




MOV 


962 


004206 


004737 


005360 




JSR 


963 


004212 


012704 


006517 




MOV 


964 


004216 


004*737 


005172 




JSR 


965 


004222 


017703 


174354 




MOV 


966 


004226 


004737 


005360 




JSR 


967 


004232 


012704 


006526 




MOV 


968 


004236 


004737 


005172 




JSR 


969 


004242 


01 7703 


1 74336 




MOV 


970 


004246 


004737 


005370 




JSR 


971 


004252 


005757 


000664 




TST 


972 


004256 


001 O*" 7 






BNE 


973 


004260 


012704 


006536 




MOV 


974 


004264 


004737 


005172 




JSR 


975 


004270 


01 7703 


174312 




MOV 


976 


004274 


004737 


005370 


• 


JSR 


977 


004300 


013703 


000674 




MOV 


978 


004304 


005403 






NEG 


979 


004306 


063703 


000672 




ADD 


980 


004312 


004737 


005370 




JSR 


981 


004316 


005777 


1 74276 


ERPTX: 


TST 


982 


004322 


100001 






BPL 


985 


004324 


oooooc 






1 1 A 1 T 

HALT 


984 


004326 


004737 


005724 


ERPTXX: 


JSR 


985 


004332 


000137 


004576 




JMP 
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SEQ 0026 





CI noni IT I MP ********** 




• CPP If AKJV FOQnD RIT^ 
,OCC ir fVlJ CntUn Oi 1 o 




• IF MOT • RO 




•PI CP PQIMT PPRHQ 
,CLOC ~nxPti Cr\nun 




•CPP rF RYTF rOlJNT I'i 7FR0 


Formed 


- IF CD- RR 

m it 0\J ■ Ova 


FRPT 


•Fl CF PRINT FRRDR 
yCLOC rnjnii tnn^^n 


nvTF:^ 
□ T 1 CO 




R3 




BADR,R3 


;SET EXPT BUS ADDRESS 


Or r LO 


•CFF IF SPAfF nPFRATION 




• IF NOT - RR 

0 1 ' IvW 1 ■ Oft 


PC 






.ccp If FXPT=RlVD 


FRPT 


• IF NOT ■ RR 




•ELSE EXIT 


#20000, aswR 


;SEE IF SHOULD PRINT 


ERPTX 


;IF NOT: BR 


HDRFL 


.-SEE IF DONE HEADER 


ERPT1 


;IF SO: BR 


EMADDR.R4 




PC.TTOUT 


.-ELSE PRINT HEADER 


HDRFL 


.-SET FLAG 



ERRAD.R4 
PCTTOUT 
*MSG5.R4 
PC, T TOUT 
aMTS,R3 
PCOCTPE 
#«SG6,R4 
PCTTOUT 
aMTC,R3 
PC.OCTPF 
#MSG7,R4 
PC.TTOUT 
aMT8C,R3 
PC.OCTP 
SPFLG 
ERPTX 
*MSG8.R4 
PC.TTOUT 
aMT8A.R3 
PC.OCTP 
BYTES.R3 
R3 

BADR.R3 

PC.OCTP 

SSWR 

ERPTXX 

PC.CKSWR 
SCOPE 



PRINT ERROR CODE 
PRINT MTS TAG 
PRIN' MTS 
PRINT MTC TAG 
PRINT MTC 

PRINT BYTE COUNT TAG 

PRINT BYTE COUNT 
SEE IF PRINT BA 
IF NOT: BR 

PRINT BUS ADDRESS TAG 
PRINT CURRENT ADDRESS 



.•PRINT EXPT ADDRESS 
.SEE F HALT ON ERROR 
;IF NOT: BR 

;G0 TEST FOR *G 

;G0 SEE IF SCOPE ON ERROR 



CZTnFF . 


01 1 — 
PI 1 


16-AUG-78 08:48 


986 








98 








9oo 


Art/ TTZ. 

004336 


000240 

www ~ w 




989 


00*1 3A0 


005037 


000704 


990 


00454*1 


121112 






004346 


001007 






004350 


005237 


000704 


W5 


AAy 7C / 

004354 


^22^22 




99*» 


004356 


005300 






004360 


001371 




996 


004362 


000137 


004536 


W/' 


004366 


000240 




Wo 


AAy 17A 

0043/'0 


012737 


000001 






0Z2777 


020000 


lUUO 


AAy y Ay 
004404 


001054 


1001 


AAy / A^ 

004406 


005737 


000710 


lOO*: 


AAy y 1 
0044 It: 


001007 




1003 


AAy / 1 y 
0044 14 


013704 


000654 


100*1 


AAy / OA 

0044^:0 


004737 


005172 


1005 


AAy / oy 
0044<:4 


012737 


00G001 


lOOO 


AAy / n 
00443<: 


012704 


006626 


lOUf 


AAy / IX 
004436 


005737 


000712 


loots 


AAy / y o 
00444*: 


001004 




"1 rwv) 
lOOV 


AAy / y y 
00444*» 


005237 


000712 


lOlO 


AAy y CA 
004450 


004737 


005172 


101 1 


AA/ / C/ 

0O443H 


012704 


006642 


10 


AAy / iLA 

0044o0 


004737 


005172 


lOI J 


AAy / xy 
004464 


013703 


000704 


IOIh 


AAy y ^A 
0044/^0 


004737 


005370 


10 1 J 


AA/ y 7/ 


012704 


006650 


1 ni A 


AAy CAA 

004500 


004737 


005172 


mi 7 


AA/ CA/ 

004504 


111103 




1 A1 o 

lOlo 


AAy CAX 

004 d06 


004737 


005616 


1 A1 Q 

10 IV 


AA/ CIO 

0045 It: 


012704 


006655 




AAy Cli 

0045 16 


004737 


005172 


1 AOI 


AAy coo 

0045<:t: 


111203 




1 AOO 


AAy CO/ 

0045<:4 


004737 


005616 


1 A07 


AA/ CIA 

00*»530 


000240 




1 AO/ 


AAy CTO 

00453<: 


000137 


004350 


1 AOC 


AAy czx 
'J0*»536 


000240 




1 AOiL 

I0<:o 


AAy cy A 
004540 


005737 


000706 


1 A07 


AA/ cy y 
004 5HH 


001404 






AAy C/ 

004546 


005777 


1 74046 


1 AOQ 


AAy ceo 
00455tf 


100001 




1 A1A 

1050 


AA/ CC/ 

00455*» 


000000 




1 \JJ \ 




004737 


005724 


1032 


004562 


000240 


1033 


004564 


005037 


000712 


103^ 


004570 


005037 


000706 


1035 


004574 


000207 





000706 
174214 



000710 



MACYll 30A{1052) 



DCHK: NOP 
CLR 

DCHKO: CMPe 
BNE 

DCHKI: INC 
CW>8 
DEC 
BNE 
JMP 

DCHKE : NOP 
MOV 
BIT 
BNE 
TST 
BNE 
MOV 
JSR 
MOV 

DLHKE1: MOV 
TST 
BNE 
INC 
JSR 

DCHKE2: MOV 
JSR 
MOV 
JSR 
MOV 
JSR 

Move 

JSR 

MOV 

JSR 

M0V8 

JSR 

NOP 

JMP 

DCHKX: NOP 
TST 
8E0 
TST 
8PL 
HAL 

DCHKXX: JSR 
NOP 
CLR 
CLR 
RTS 



B 3 
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SEO 0027 



CHECK SUBROUTINE*** 



CRCNT .-CLEAR COIWTER 

(R1).(R2) ;SEE IF EXPT DATA=RCVD DATA 

DCHKE :lf NOT: BR 

CRCNT ;8UMP CHARACTER COUNTER 

(R1)+.(R2)* 

RO ;SEE IF DONE 

DCHKO ;IF NOT: BR 

DCHKX ;ELSE gO TO EXIT ROUTINE 

*1.DERFL ;SET ERROR FLAG 

#20000. aSWR ;SEE IF PRINT ERROR 

DCHKX ;IF NOT: BR 

HDRFL ;SEE IF DONE HEADER 

DCHKE 1 ;JF SO: BR 
EMADDR,R4 

PC, T TOUT .-PRINT HEADER 

*1 .HDRFL .-SET HEADER FLAG 
/mSG12.R4 

PFLG .-SEE IF PRINTED DATA ERROR TAG 

DCHKE2 .-IF SO: BR 

PFLG 

PC. T TOUT .-ELSE PRINT DATA ERROR TAG 
*MSG13,R4 

PC. T TOUT .-PRINT CHAR NlfBEP TAG 
CRCNT. R3 

PC.OCTP .-PRINT CHAR NLfBER 
*MSG14.R4 

PC. T TOUT .-PRINT GOOD TAG 
(R1).R3 

PC.DOUT .-PRINT GOOD CHARACTER 
*«SG15.R4 

PC.TTOUT .-PRINT BAD TAG 
(R2).R3 

PC.DOUT .-PRINT BAD CHARACTER 

DCHKI .-CONTINUE FOR ALL BYTES 

DERFL .-SEE IF ANY ERROR 

DCHKXX ;IF NOT: BR 

aSUR .-SEE IF HALT ON ERROR 

DCHKXX ;IF NOT: BR 

PC.CKSWR ;GC TEST FOR *G 

PFLG .CLEAR PRINT FLAG 

DErJFL ; CLEAR DATA ERROR FLAG 

PC .-RETURN 



rZTWFO TMA,8-11 SPLMTL 
CZTHFF.P11 16-AUG-78 

1036 
1037 

1038 004576 0OO2A0 

1039 004600 032777 

1040 004606 001001 

1041 004610 000207 

1042 004612 000240 

1043 004614 005726 

1044 004616 000240 

1045 004620 017703 

1046 004624 000113 
1047 

1048 
1049 

1050 004626 000240 

1051 004630 004737 

1052 004634 032777 

1053 004642 001403 

1054 004644 005037 

1055 004650 000207 

1056 004652 005737 

1057 004656 001772 

1058 004660 005237 

1059 004664 023737 

1060 004672 001764 

1061 004674 005726 

1062 004676 017700 

1063 004702 000110 
1064 

1065 
1066 

1067 004704 000240 

1068 004706 022626 

1069 004710 042777 

1070 004716 000240 

1071 004720 000240 

1072 004722 000207 
1073 

1074 
1075 

1076 004724 000240 

1077 004726 000240 

1078 004730 000240 

1079 004732 000002 
1080 



INSTR MAC^'11 30A(1 
08:48 



SCOPE : 

040000 174012 

SCOPE 1 : 

174034 

ITER: 

005724 

010000 173756 
000702 ITERO: 
000670 ITERl: 

000702 

000702 000634 
1 73760 

MTINT: 

000100 173664 



TTINT: 
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SEQ 0028 



.SCOPE LOOP ON ERROR SUBROUTINE' 



NOP 
BIT 
BNE 
RTS 
NOP 
TST 
NOP 
MOV 
JMP 



/ir40000,aSUR 
SCOPE 1 
PC 

(SP) + 

aLTADD.R3 
(R3) 



;SEE IF LOOP ON ERROR 
;IF SO: BR 
.-ELSE EXIT 

.•RESET STACK 



.'LOOP ON ERROR 
.•TEST ITERATION SUBROUTINE********** 



NOP 






JSR 


PC-CKSWR 




BIT 


/inoooo.asuR 


SEE IF ITERATIONS 


BEO 


ITERl 


IF SO: BR 


CLR 


ITCNT 


•CLEAR ITERATION COUNTER 


RTS 


PC 


•ELSE EXIT 


TST 


PCNTR 


•SEE IF FIRST PASS 


BEQ 


ITERO 


•IF SO: BR 


INC 


ITCNT 


;81JMP COUNTER 


CMP 


ITCNT.ITAMT 


;SEE IF DONE ALL 


BEO 


ITERO 


.•IF SO: BR 


TST 


(SP)* 


;RESET STACK 


MOV 


aiTRLP,RO 


;SET ITERATION POINTER 


JMP 


(RO) 


;60 ITERATE 


;MAG 


TAPE INTERRUPT HANDLER********** 


NOP 






CMP 


(SP)+,(SP)+ 


.•RESET STACK POINTER 


BIC 


#100.aHTC 


.-CLEAR INTERRUPT ENABLE 


NOP 






NOP 






RTS 


PC 


.•RETURN 


;TTy 






NOP 






NOP 






NOP 






RTI 







CZTWFFO 


TMA.8- 


11 SPLMTL 


INSTR 


CZTMFF.Pn 


16-AUG-78 08:48 


1081 








1082 








1083 








1084 








1085 








1086 








1087 








1088 








1089 








1090 








1091 








1092 








1093 








1094 








1095 








1096 








1097 








1098 


004734 


005037 


000646 


1099 


004740 


005000 




1100 


004742 


004737 


005120 


1101 


004746 


122737 


000215 


1102 


004754 


001005 




1103 


004756 


005737 


000646 


1104 


004762 


001446 




1105 


004764 


000137 


005056 


1106 


004770 


122737 


000260 


1107 


004776 


101402 




1108 


005000 


000137 


005102 


1109 


005004 


122737 


000270 


1110 


005012 


101002 




1111 


005014 


000137 


005102 


1112 


005020 


005237 


000646 


1113 


005024 


000241 




11U 


005026 


006100 




1115 


005030 


000241 




1116 


005032 


006100 




1117 


005034 


000241 




1118 


005036 


006100 




1119 


005040 


042737 


1 7777^ 


1120 


005046 


053700 


000644 


1121 


005052 


005301 




1122 


005054 


001332 




1123 


005056 


020002 




1124 


005060 


101402 




1125 


005062 


000137 


005102 


1126 


005066 


020300 




1127 


005070 


101402 




1128 


005072 


000137 


005102 


1129 


005076 


010015 




1130 


005100 


000207 




1131 









MACYll 50A(1052 



TTR: 
TTRO: 



TTR18: 



TR2: 
TTR3: 



TrR4; 
TTR5: 



0 3 
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SEO 0029 



TTY ENTRY SLBROUTINE: 

THIS SUBROUTINE IS USED BY THE TEST CONDITION 
ENTRY ROUTINE TO READ THE RESPONSE ENTERED 
AT THE TTY AND CHECK THEM FOR LEGALITY AND 
LIMITS. ALL RESPONSE MUST BE TYPED IN OCTAL 
(0-7) AND MUST FALL WITHIN THE LIMITS SET BY 
THE CALLING ROUTINE. 

IF AN ENTRY IS ILLEGAL OR OUTSIDE THE LIMITS, 
A QUESTION MARK IS TYPED (?) AND THE RESPONSE 
MAY BE REENTERED. 

ENTRIES MAY NOT EXCEED SIX (6) CHARACTERS AND 
MAY BE TERMINATED AT LESS THAN SIZ BY TYPING A 
CARRIAGE RETURN 

A****************************************************** 



CLR 


TEMPI 


CLEAR FIRST CHARACTER FLAG 


CLR 


RO 




JSR 


PCTTIN 


GO READ CHARACTER 


CMP8 


#215, TIB 


SEE IF CR 


BNE 


TTRl 


IF NOT: BR 


TST 


TEMPI 


SEE IF FIRST CHARACTER 


BEO 


TTR5 


•IF SO: BR 


JMP 


TTR2 


'ELSE GO LOAD VALUE 


CMP8 


#260. TIB 


•SEE IF CHAR IS LESS THAN 0 


BLOS 


TTRIA 


•IF NOT: BR 


JMP 


TINER 


;ELSE GO TO ERROR 


CMP8 


#270, TIB 


■SEE IF CHAR IS GREATER THAN 7 


6HI 


TTR18 


•IF NOT: BR 


JMP 


TINER 


;ELSE GO TO ERROR 


INC 


TEMPI 


•SET FIRST CHARACTER FLAG 


CLC 






ROL 


RO 




CLC 






ROL 


RO .-SHIFT 3 LEFT 


CLC 






ROL 


RO 




BIC 


#177770. TIB 


•STRIP ASCII 


BIS 


TI8,R0 


•LOAD CHARACTER 


DEC 


Rl 


•SEE IF DONE 


BNE 


TTRO 


;IF NOT: BR 


CMP 


R0,R2 


;SEE IF EXCEEDED MAXIMUM lIMIT 


BLOS 


TTR3 


;IF OT: BR 


JMP 


TINER 


;ELSE GO TO ERROR 


CMP 


R3,R0 


;SEE IF BELOW MINIMUM LIMIT 


BLOS 


TTR4 


;IF NOT: BR 


JMP 


TINER 


;ELSE GO TO ERROR 


MOV 


R0.(R5) 


;LOAD VALUE 


RTS 


PC 


•EXIT 



CZTMFFO 


THA.8-11 SPLMTL 


INSTR 


CZTUFF.Pll 16-AUG-78 08:A8 


1132 








1133 








113^ 


005102 


012704 


006662 


1135 


005106 


004737 


005172 


1136 


005112 


162716 


000020 


1137 


005116 


000207 




1138 








1139 








1U0 








1K1 


005120 


005077 


1 73500 


1K2 


005124 


005077 


173476 


1U3 


005130 


005037 


000644 


1KA 


005'. 34 


005277 


1 73464 


1K5 


005140 


10577? 


1 73460 


1U6 


005144 


100375 




1H7 


005146 


01 7737 


1 73454 


1U8 


005154 


105777 


173450 


1K9 


005160 


100375 




1150 


005162 


113777 


000644 


1151 


005170 


000207 




1152 








1153 








1154 








1155 


005172 


112437 


000642 


1156 


005176 


122737 


000043 


1157 


005204 


001452 




1158 


005206 


122737 


000045 


1159 


005214 


001407 




1160 


005216 


122737 


000041 


1161 


005224 


001443 




1162 


005226 


004737 


005316 


1163 


005232 


000757 




116A 


005234 


112737 


00001 5 


1165 


005242 


004737 


0053.6 


1166 


005246 


012703 


000004 


1167 


005252 


005037 


000642 


1168 


005256 


004737 


005316 


1169 


005262 


005303 




1170 


005264 


001372 




1171 


005266 


112737 


000012 


1172 


005274 


004737 


005316 


1173 


OC5300 


105737 


000724 


117A 


005304 


100401 




1175 


005306 


000731 




1176 


005310 


005037 


000724 


1177 


005314 


000406 




1178 


005316 


105777 


173306 


1179 


005322 


100375 




1180 


005324 


113777 


000642 


1181 


005332 


000207 




1182 


005334 


012703 


000002 


1183 


005340 


012737 


000007 


1184 


005346 


004737 


005316 


1185 


005352 


005303 




1186 


005354 


001371 




1187 


005356 


000 70S 





MACYll 30A(105; 



TINER: 



000644 



173442 



TTIN: 



TTINl 



■T1N2: 



TTOUT: 



1 73300 
000642 



1$: 
TOG: 



TEX: 

T8ELL: 

T8ELA: 
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SEO 0030 



;TTY ENTRY ERROR SUBROUTINE********** 

nOV «nSG16,R4 

JSR PC-TTOUT .-PRINT? 

SUB #26. (SP) .'RESET SP TO START OF VALUE ROUTINE 

RTS PC .-REDO VALUE ENTRY 

;TTY READ SUBROUTINE********** 

CLR aTKS 

CLR aTKB 

CLR Tie 

INC aTKS 

TST8 aTKS 

BPL TTIN1 

MOV aTKS. TIB 

TST8 aTPS 

BPL TTIN2 

MOVB TIB.aTPB 

RTS PC 

;TTY OUTPUT SUBROUTINE********** 

MOVB (R4)+.T0B 

CMP8 #43.T08 

8EQ TEX 

CMP8 #45.T08 

8EQ TCRLF 

CMP8 #41,T08 

8EQ T8ELL 

JSR PC. TOG 

8R TTOUT 

M0V8 *15,T08 

JSR PC. TOG 

MOV /r4,R3 

CLR Toe 

JSR PC, TOG 

DEC R3 

BNE TCRLFA ;D0 FILLERS 

MOVB #12.T0e 

JSR PC. TOG 

TST8 RDSW 

BMI 1$ 

BR TTOUT 

CLR RDSW 

BR TEX 

TST8 aTPS 

BPL TOG 

MOVB T06.aTP8 

RTS PC 

MOV *2.R3 

MOV *7.T08 

JSR PC, TOG 

DEC R3 

BNE TrZELA 

BR TTOUT 



CZTNFFO TMA.B-11 SPLMTL INSTR 
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1188 








118^ 








1 190 








1 191 


005360 


012737 


000001 


1 192 


005366 


000402 




1 193 


005370 


005037 


005614 


1 194 


005374 


010304 




1 195 


005376 


001007 




1 196 


00:400 


005737 


0056^4 


1 197 


005404 


001004 




1 198 


005406 


004737 


A/'iC C "7/ 


1199 


005412 


00015' 


AAC C 


1200 


005416 


052704 


1 AAAAA 


1201 


005422 






1202 


005424 




AAAAA 1 


1203 


005430 




AAC C C 


1204 


005434 


000137 


AAC/ / 

005446 


1205 


005440 


rv/\c A/>y 

005004 




1206 


005442 


f\n/ 7T7 

004757 


AACC C "5 

005552 


1207 


005446 


Ai A7Ay 




1208 


005450 


006004 




1209 


005452 


006004 




1210 


005454 


AA^ AAy 

006004 




1211 


005456 


AAZ. AA/ 
00600*t 




1212 


005460 


AAA 7 A/ 

000 504 




1215 


AACy 


AA/ 777 

00473f 


U0555c 


1214 


00546O 


A1 A7A/ 

01 050*» 




1<:1 !) 




OOoOOs 




1216 




AAA 7 A/ 

000504 




121 ^ 




A/V 777 


OO J JJC 


1210 


AAC C 


A1 A7A/ 

0 1 05U*« 




1219 


AAC CAO 

005 jU<^ 


AAiLI A/ 

OOo 1 0*t 




122U 


AACCAy 


AA/.1 A/ 

OOo I0*» 




1221 


AACCAiL 


AAA 7 A/ 

00050*» 




1222 


AAC CIA 

005510 


AA/ 777 

0047 bf 


0055 JC 


1225 


AAC CI J 

00551*» 


A1 CVZCiJ 

0105Uh 




1224 


AACCIil 

005516 


AAiLAAy 

00600** 












1226 


005522 


006004 




1227 


005524 


004737 


005552 


1228 


005530 


010304 




1229 


005532 


004737 


005552 


1230 


005536 


012737 


000240 


1231 


005544 


004737 


005316 


123? 


005550 


000207 





flACYll 30A(1052) 



005614 OCTPE: 

OCTP: 
0CTPE1: 



OCTPO: 



OCTP-i : 
0CTP2: 



000642 0C»P3: 





F 


3 






16-AUG-78 08:51 


PAGE 


31 




.•OCTAL 


OUTPUT SUBROUTINE********** 




nov 


#1.0FL 








BR 


OCTPE 1 








CLR 


OFL 




CLEAR FLAG FOR LEADING 


MOV 


R3,R4 




SEE IF NLPBER IS 




BNE 


OCTPO 




•IF NOT ZERO: BR 




TST 


OFL 




•SEE IF PRINT ALL 


A 

u 


BNE 


OCTPO 




•IF SO: BR 




jSR 


PC.0CTPG1 




•ELSE PRINT ZERO 




JMP 


0CTP3 




•SPACE AND EXIT 




BIT 


*1 00000. R4 




•SEE IF MSD = 1 




BEQ 


OCTP 




;]F NOT: BR 




MOV 


*1 .R4 








«>SR 


PCOCTPG 


.-PRINT 1 




JMP 


0CTP2 








CLR 


R4 








JSR 


PC.OCTPG 


.•PRINT 0 




MOV 


R3.R4 








ROR 


R4 








ROR 


R4 








ROR 


R4 


.•POSITION DIGIT 




ROR 


R4 








SWAB 


R4 








JSR 


PC.OCTPG 




.•PRINT DIGIT 2 




MOV 


R3.R4 








ROR 


R4 








SUAB 


R4 








JSR 


PC.OCTPG 




.•PRINT DIGIT 3 




MOV 


R3.R4 








ROL 


R4 








ROL 


R4 








SUAB 


R4 








JSR 


PC.OCTPG 




.-PRINT DIGIT 4 




MOV 


R3.R4 








ROR 


R4 








ROR 


R4 








ROR 


R4 








JSR 


PC.OCTPG 








MOV 


R3.R4 








JSR 


PC.OCTPG 




.•PRINT DIGIT 5 




MOV 


#240. T08 








JSR 


PC. TOG 




.PRINT SPACE 




RTS 


PC 




.-EXJ'^ 





SEQ 0051 



CZTMFFO TMA.8-n SPLMTl INSTR MACYII 50A(1052) 16-AUG-78 
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SEQ 0032 



1235 
1234 
1235 
1236 
1237 
1258 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
128T 
1284 
1285 
1286 
1287 
'288 



005552 
005556 
005560 
005564 
005566 
005570 
005574 
005600 
005604 
005610 
005612 
005614 



005616 
005622 
005626 
005632 
005636 
005640 
005646 
005650 
005656 
005660 
005666 
005672 
005674 
005676 
005700 
005704 
005706 
005712 
005716 
005722 



005724 
005732 
005734 
005740 
005742 
./:5750 
005756 
005764 
005766 
005772 
005776 
006002 
006006 
006012 
006016 



042704 
001004 
005737 
001001 
000207 
005237 
052704 
010437 
004737 
010304 
000207 
000000 



005037 
012704 
110337 
105777 
100375 
132737 
001404 
012777 
000403 
012777 
006137 
005304 
001356 
000207 
013703 
000303 
004737 
013703 
004737 
000207 



022737 
001041 
105777 
100036 
017737 
042737 
022737 
001024 
012704 
004737 
012704 
004737 
•17703 
004737 
012704 



\77770 
005614 



005614 
000260 
000642 
005^16 



000642 
172754 
y72'^i*i* 



000642 
000010 
000642 
^72772 

000200 

000061 

000060 
000642 



000652 

005616 
000652 
005616 



000176 000620 CKSUR: 
172664 

172660 000644 

1 77600 0006'.4 

000007 000644 



OCTPG: 



OCTPGO: 
0CTPG1: 



OFL: 



DOUT; 



0OUT1 



D0UT2: 
D0UT3: 



DOUTD: 



007050 
005172 
007054 
005172 
172606 
005360 
00^066 



CNTLU: 



.•OCTAL PRINT SUBROUTINE' 



BIC 
BNE 
TST 
BNE 
RTS 
INC 
BIS 
MOV 
JSR 
MOV 
RTS 
0 



*1 77770. R4 

OCTPGO 

OFL 

OCTPGO 

PC 

OFL 

*260.R4 
R4.T0B 
PC. TOG 
R3.R4 
PC 



.•FIRST CHAR FLAG 



;DATA CHARACTER OUTPUT SUBROUTINE' 



CLR 

MOV 

M0V8 

TST8 

BPL 

81 T8 

BEO 

MOV 

BR 

MOV 

ROL 

DEC 

BNE 

RTS 

MOV 

SUAB 

JSR 

MOV 

JSR 

RTS 



Toe 

*10.R4 
R3.T08 

aTPs 

D0UT1 
#200- T 08 

D0UT2 

#06i.aTPe 

DOUT 3 

#060.aTPB 

T08 

R4 

D0UT1 
PC 

TEMP3,R3 
R3 

PC, DOUT 
TEMP3.R3 
PC. DOUT 
PC 



;SET Nl^ER TO PRINT 



.•SUBROUTINE TO CHANGE CONTENTS OF SOFTWARE SWITCH REGISTER 



CMP 
BNE 
TST8 
BPL 
MOV 
BIC 
CMP 
BNE 
MOV 
JSR 
MOV 
JSR 
MOV 
JSR 
MOv 



#SUREG,SWR 

OUT 

aTKS 

OUT 

aiKB.TIB 
#177600. TIB 
#7. TIB 

OU' 

#$CNTG.R4 
PC. T TOUT 
#SMSWR.R4 

PC. T TOUT 
aSWR.R3 

PCOCTPE 
#t«N£w.R4 



SOFTWARE SWITCH REG PRESENT 
NO, GET OUT 
YES, WAIT FOR 
READY. GET CHARACTER 
AND STRIP OFF 
THE GARBAGE 
IS r A <*G> 



CZTMFFO T«A.B-n SPLMTL 
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1289 
1290 
1291 
1292 
1293 
129A 
1295 
1296 
1297 
1298 
1299 
1500 
1301 
1502 
1503 
150A 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
13K 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1525 
1326 
1527 



006022 
006026 
006052 
006056 

006040 
006CA4 
006052 
006056 
006064 
006072 
006074 
006076 
006100 
006106 
006110 
006116 
006122 
006130 
006132 
006134 
006136 
006144 
006146 
006154 
006156 
006162 
006166 
006170 
006174 
006200 
006204 
006212 
006220 
006224 
006226 
006230 
C06236 



004757 
005057 
004757 
000207 

005057 
012757 
004757 
042757 
122757 
001002 
005726 
000757 
122737 
001015 
012757 
004757 
022757 
001057 
005726 
000740 
122737 
003004 
122757 
002005 
012704 
004737 
000742 
006357 
006337 
006337 
142737 
153757 
005537 
001754 
000711 
015777 
000735 



INSTR 
08:48 

005172 
000722 
006040 



000722 
000007 
005120 
177600 
000025 



000015 

000200 
005234 
000007 



000060 

000067 

007076 
005172 

000722 
000722 
000722 
000060 
000644 
000720 



MAC VII 30A(10 



000720 

000644 
000644 



000644 
000722 



OUT: 

tREAD 

M: 



3$: 

000644 2t: 

000724 

000720 

8$: 

000644 4S: 
000644 

5»: 



6$: 



000722 172362 
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SEO 0033 



JSh 


or T TOl IT 

PC, 1 lUUl 






Jon 




DTQ 

n 1 J 


pr 


CLR 


TEMPS T 


MOV 


*7. COUNT 


JSR 


PC.TTJN 


8JC 


#177600.116 


CMPe 


#25,TJ8 


BNE 


2$ 


TST 


(SP)* 


BR CNTLU 


L/'ttJ 


W I J , \ Its 


tlNt 








1 CD 


or TTDI f 






BNE 


7$ 


TST 


(SP)* 


BR 


OUT 


CMPB 


#60.TJ8 


BGT 


5$ 


CMP8 


#67.TJ8 


BGE 


6S 


MOV 


nOUEST,R4 


JSR 


PC. T TOUT 


BR 


3$ 


ASL 


TEMPS T 


ASL 


TEMPST 


ASL 


TEMPS T 


Bice 


#60. TIB 


Bise 


TIB. TEMPST 


DEC 


COUNT 


BEQ 


5$ 


BR 


1$ 


MOV 


TEMPS T.aSWR 


BR 


8S 



;G0 READ A LINE 

.•RETURN TO MAIN BODY OF PROGRAM 



GO READ A CHARACTER 
STRIP OFF GARBAGE 
IS IT A *U? 
BRANCH IF NOT 
POP THE STACK 
START OVER 
IS IT A <CR>? 
BRANCH IF NOT 

ECHO IT WITH <LF> 

WAS IT FIRST CHARACTER 

CHANGE SWR IF NOT FIRST ONE 

POP THE STACK 

GET OUT 



.-START OVER IF NOT LEGAL CHARACTER 

;GET NITTY-GRITTV 
.-ONLY UIANT 6 DIGITS 

.CHANGE SWITCH REGISTER CONTENTS 
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SEQ 0054 



1 T5a 








1 153 

1 JC ' 








1 <'Vl 
1 J jU 








1 5^ 1 








1 X<3 

1 JJC 








1 








1 J J** 








1 jjj 














Uvv 1 \J\J 


1 777 




insn77 








in';n77 




1 77Q 




insn77 

1 \JJ\JDf 




1 7/.n 








1 

1 j*t 1 




on '5777 












1 7(t7 


y^foc f c 




nooino 






nP7777 


onno^p 

VAA/w*tc 


1 XL's 








1 7^A 




in';p77 


VAA/ 1 wJ 






ono^pi 

\J\J\JHC 1 




1^8 






00010? 

VwV ' V/C 


1^9 




01P777 

VIC' J ' 


000176 


1 ^50 




01 ?777 


124000 


1 ^S1 


006334 


000410 




1 ■55P 


006336 


105737 


00004' 


1353 


006342 


001003 




1354 


006344 


105237 


000104 


1355 


006350 


000402 




1356 


006352 


105237 


000105 


1357 


006356 


000207 




1358 








1359 








1360 









000046 



000620 
1 72264 



MODIFIED JAN 10 1978 



CHECK FOR DUMP MODE OR AUTOMATIC /ACT11-XXDP MODE 





f I R 


AUTOM 


INIT AUTOMATIC MODE INDICATOR 


CLR8 


ACTUM ' 


INIT ACTll AUTO MODE INDICATOR 




CLR8 


XXDPM '. 


INIT XXDP AUTO MODE INDICATOR 




CLR8 


ADUMPM 


INIT ACT11 DUMP MODE INDICATOR 




CLR8 


XDUMPM 


INIT XXDP DUMP MODE INDICATOR 




TST 


air42 


AUTO MODE? 




BEQ 


2$ 


BRANCH -IF NO 




INC 


AUTOM 


SET AUTO MODE INDICATOR 




CMP 


a«42«aiir46 


•ACT11 MODE? 




BEQ 


1$ 


BRANCH - IF YES 




INCB 


XXDPM 


•INDICATE XXDP AUTO MODE 




BR 


5$ 


■AND EXIT 


U: 


INCB 


ACTUM 


; INDICATE ACT11 AUTO MODE 




MOV 


*176eSWR 


;SET SOFTWARE SWITCH IN ACT MODE 




MOV 


#1 24000, asuR 


;SET SWITCH REGISTER 




BR 


5$ 


;AND EXIT 


2$: 


TST8 


^4^41 


•flAN/MODE VIA ACTll /PAPER TAPE? 




BNE 


3$ 


.•BRANCH - IF NOT 




INCB 


ADUfIRM 


; INDICATE MAN/MODE VIA ACT11/PAPER TAPE 




BR 


5S 


;AND EXIT 


3f: 


INCB 


XDUMPM 


.INDICATE MANUAL MODE VIA XXDP 


5$: 


RTS 


PC 


.■RETURN 
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SEO 0035 



1561 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 



.•MESSAGE TABLE********** 



006560 
006366 
006374 
006402 
006410 
006416 
006421 
006426 
006434 
006440 
006446 
006454 
006460 
006466 
006474 
006502 
006510 
006516 
006517 
006524 
006526 
006534 
006536 
006544 
006546 
006554 
006562 
006570 
006571 
006576 
006604 
006606 
006614 
006622 
006626 
006634 
006642 
006650 
006655 
006662 
006664 
006672 
006700 
006701 
006706 
006714 
006715 
006722 
006730 
006736 
006740 
006746 
006754 
006762 



022445 
043106 
026101 
051440 
020114 
020122 
045 
047040 
035122 
020445 
043117 
035123 
020445 
047111 
047522 
020117 
046445 
043 
045 
021440 
046445 
021440 
046445 
021440 
020445 
051513 
042440 
043 
045 
020124 
021531 
020445 
047111 
050125 
042045 
051105 
041445 
043445 
045 
021477 
053445 
042440 
043 
045 
042440 
043 
045 
044520 
032463 
021524 
047445 
052111 
033061 
021524 



055103 
020060 
026502 
046120 
047111 
043 
047125 
046525 
021440 
047105 
050040 
021440 
051041 
020104 
035122 
047502 
051524 

052115 

041124 

041524 

041041 
040520 
051122 

020441 
042522 

047041 
042524 
021524 
052101 
047522 
035116 
020072 
035102 

044522 
051122 

042522 
051122 

047516 
044440 
043040 

044520 
044510 
043040 



046524 
046524 
030461 
052115 
052123 

052111 
042502 

020104 
051501 

053505 
051105 
047040 
021524 
020072 

035103 

035103 

035101 

041501 
042503 
051117 

047516 
042101 

020117 
051122 

020101 
021522 
021440 
043 
021440 

042524 
051117 

042101 
0S1117 

047440 
020116 
042505 

053440 
020116 
042505 



MSGl : 


.ASCII 


/XICZTMFFO TMA,8-n SPLMTL 


MSG2: 


.ASCII 


/XUNIT NUMBER: */ 


MSG3: 


.ASCII 


/X.END OF PASS: »/ 


MS 64 : 


.ASCII 


/*..HtWlND tKKUH: NU BUI*/ 


MSG5: 


.ASCII 


/%MTS: #/ 


MSG6; 


.ASCII 


/JWTC: #/ 


MSG7: 


.ASCII 


/ZMT8C: #/ 


MSGS: 


.ASCII 


/ZMTCA- #/ 


MSG9: 


•ASCII 


/X! .'BACKSPACE ERRORS/ 


MSG10: 


.ASCII 


/X:.NOT READY*/ 


MS61 1 : 


.ASCII 


/X..NO INTERRUPT*/ 


MSG12: 


.ASCII 


/XDATA ERROR*/ 


MSG13: 


.ASCII 


/XCN: */ 


MSG14: 


•ASCII 


/XG: »/ 


MSG15: 


•ASCII 


/X8: */ 


Plovj lo: 


• «5 L J 1 


/''*/ 


MSG17: 


.ASCII 


/iURITE ERROR*/ 


MSG18: 


•ASCII 


/XREAD ERROR*/ 


MSG19: 


.ASCII 


/»*0 OPI IN 35 FEET*/ 


MSG20: 


•ASCII 


/XOPl WITHIN 16 FEET*/ 
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SEQ 0036 



1^17 

m 1 f 


\AJO ' OH 


UC wVH J 


\JH f V/H 1 


0P01 1 7 


M^f;2i • 


ASCI 1 


1418 




UH f 1 c J 


n'iPl 1 1 


051450 






m \y 


\AJf\AAJ 




\JJJ 1 v 1 








1 ^pn 








021505 


M^G22 ■ 


.ASCII 


1^51 


\AJf U 1 H 


UH 1 HH J 


UH f 1 v 1 


047516 




nn7n?? 


npm ?^ 

\JC\J 1 CH 


vHt JCH 


052123 






1 He J 


\AJi\JJ\J 


wHDwHw 


04051 7 


020104 






1 HCH 




04P515 


044504 


046525 






1 ^PS 

1 HCVJ 


VA/f UHH 


npn^Ai 

UCvHH 1 








•ASCII 


007050 


057045 


021507 




SCNTG: 


1 He ' 




flPP^^S 

UCCHH J 


0P0441 


053523 


SMSWR: 


.ASCII 


1 HcO 






npi440 


036527 




.ASCII 


1 Hc^ 


007066 

V/Vr wVXJ 


020040 


042516 


SMNEU: 


1 ** JyJ 


007074 


021440 




043 




.ASCII 




007076 


037445 


022445 


SQUEST: 


143? 












.•TEST HI 


1 H J J 












1 M J** 














143S 


007103 


045 


052045 


051505 


LTIMSG: 


.ASCII 


1436 


007110 


020124 


035061 


053440 






1437 


0071 16 


044522 


042524 


043040 






1438 


007124 


047522 


0201 1 5 


042117 






1439 


0071 32 


020104 


054502 


042524 






1440 


007140 


043 






LT2MSG: 




1441 


007141 


045 


052045 


051505 


.ASCII 


1442 

1 ■•"•4. 


007146 


020124 


035062 


051040 






1443 


0071 54 


040505 


0201 04 


047524 






1444 


007162 


047440 


042104 


041040 






1445 


007170 


052131 


021 505 








1446 


007174 


022445 


042524 


052123 


LT3MS6: 


.ASf II 


1447 


007202 


0^1440 


020072 


050117 






1448 


007210 


020111 


047524 


0201 1 7 






1449 


007216 


047514 


043516 


043 






■•450 


007223 


045 


052045 


051505 


LT4MSG: 


.ASCII 


1451 


007230 


020124 


035064 


047440 






1452 


007236 


044520 


052040 


047517 






1453 


007244 


051440 


047510 


052122 






1454 


007252 


043 










1455 




007254 








.EVEN 


1456 














1457 


007254 


Mm7 






UDATA: 


-1 


1458 












.=.♦100 

0 


1459 


007356 


000000 






RDATA: 


1460 




000001 








.END 
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SEQ 0037 


CZTHFF.P11 16-AUG-78 08:48 




CROSS REFERENCE 


TABLE — 


USER SYMBOLS 












ACT CNR 


000106 


364ir 


475* 


633 


652* 












1337* 


1348* 


ACTUM 


000102 


360ir 


496 


520 


540 


551 


563 580 


624 


631 


647 


AOdlPH 


000104 


362* 


1339* 


1354* 


















AUTOM 


000100 


359* 


1336* 


1343* 








809* 








979 


BADR 


000672 


<<40* 


676* 


690* 


721* 


735* 


764* 776* 


821* 


904 


942 


BCNT 


000716 


450* 




770 


815 


869* 














BKSP 


003526 


683 


728 














BKSP1 


003560 


875* 


876 












822* 






977 


BYTES 


000674 


44''* 


677* 


691* 


722* 


736* 


765* 777* 


810* 


905 


940 


CCNT 


000614 


414* 






















CKMODE 


006240 


495 


1336* 














1274* 






CKSUR 


005724 


602 


606 


649 


863 


901 


928 984 


1031 


1051 






CNTLU 


005776 


546 


1284* 


1301 


















CCXJNT 


000720 


451* 


1295» 


1306 


1322* 
















CRCNT 


000704 


445* 


989» 


992* 


1013 
















DCHK 


004336 


699 


744 


988* 


















DCHKE 


004566 


991 


997* 




















DCHKE1 


004432 


1002 


1006* 




















DCHKE2 


004454 


1008 


1011* 




















DCHKX 


004536 


996 


1000 


1025* 


















DCHKXX 


004556 


1027 


1029 


'031* 


















DCHKO 


004344 


990* 


995 




















DCHKI 


004350 


992* 


1024 




















DERFL 


000706 


446* 


998* 


^026 


1034* 
















DISPLA 


000622 


417* 


487* 




















DISPRE 


000174 


386* 


487 




















OOUT 


005616 


1018 


1022 


1251* 


1267 


1269 














DOUTD 


005700 


1265* 






















D0UT1 


005632 


1254* 


1255 


1263 


















D0UT2 


005660 


1257 


1260* 




















D0UT3 


005666 


1259 


1261* 




















DRIVE 


000040 


327* 






















EMADDR 


000654 


433* 


666* 


712* 


760* 


805* 


848 894 


921 


954 


1003 






ERCHK 


004050 


681 


695 


726 


740 


768 


813 826 


879 


934* 








ERCHKl 


004062 


935 


937* 




















ERCHK2 


004074 


938 


940* 




















ERCHK3 


004116 


944 


946* 




















ERPT 


004126 


786 


936 


939 


947 


949* 














ERPTX 


004316 


951 


972 


981* 


















ERPTXX 


004326 


982 


984* 




















ERPT1 


004162 


953 


957* 
















957 




ERRAD 


000656 


434* 


678* 


692* 


725* 


739* 


767* 779* 


811* 


824* 


878* 




EXEC 


003620 


679 


693 


723 


737 


766 


780 812 


825 


886* 








EXECX 


004030 


918 


925* 




















EXECXX 


004040 


926 


928* 




















EXECO 


003624 


888* 


891 




















EXEC1 


003656 


893 


896* 




















EXEC2 


003676 


889 


899 


901* 


















EXEC3 


003760 


913* 


914 


916 


















EXEC4 


004020 


920 


923* 












823* 


906 






FUN 


000700 


443* 


675* 


689* 


720* 


734* 


763* 778* 


808* 






HORFL 


000710 


447* 


599* 


892 


919 


952 


956* 1001 


1005* 










HERE 


002170 


638 


644* 




















ITAMT 


000o34 


422* 


788* 


790* 


829* 


831* 


1059 












ITfNT 


000702 


444* 


1054* 


1058* 


1059 
















ITER 


004626 


700 


745 


789 


830 


1050* 
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CZTMFF 
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CROSS REFERENCE 


I TtRO 




1054* 


1057 


1060 






1053 


1056* 




I TRLP 




4364r 


594* 


595* 621* 






435* 


592* 


593* 594 


LT1 


00P23/. 


460 


461 


665* 


LT1S 




670* 


673 


LT1C 


00? 3 30 


680* 




LT1D 


00P360 


686* 


688 




I TIE 




694* 




LTIMSG 


007103 


666 


1435* 




LT2 


00246? 


462 


463 


711* 


LT2B 


002500 


715* 


718 




LT2C 


00254A 


724* 






LT2D 


00260? 


731* 


733 




LT2E 


002640 


738* 






LT2MS6 


007141 


712 


1441* 




LT3 


002704 


464 


759* 




LT3A 


002724 


763* 


772 




LT3B 


002752 • 


767* 






LT3C 


003052 


781* 






LT31T 


003002 


465 


773* 




LT3MSG 


0071 74 


760 


1446* 




LT3X 


003110 


784 


788* 




LT4 


003134 


466 


804* 




LTAA 


003154 


808* 


817 




LT48 


003210 


813* 




LTAC 


003302 


826* 






LTAIT 


003232 


467 


818* 




LT4MSG 


007223 


805 


1450* 




MEDILM 


000041 

V V V V » 1 


331* 






MSG1 


006360 


502 


1363* 




MSGIO 


006571 


896 


1391* 




Mscn 


006606 


923 


1394* 




MSG 12 


006626 


1006 


1397* 




MSG13 


006642 


1011 


1399* 




MSGK 


006650 


1015 


1400* 




(iSGlS 


006655 


1019 


1401* 




MSG16 


006662 


1134 


1402* 




MSG17 


006664 


678 


725 


767 81 1 


MSG18 


006701 


692 


739 


1406* 


MSG! 9 


006715 


779 


1409* 


riSG2 


006421 


504 


1369* 




MSG20 


006740 


824 


1413* 




MSG21 


006764 


558 


1417* 




MSG22 


007014 


492 


1421* 




MSG3 


006440 


629 


1372* 




MSG4 


006460 


850 


1375* 




MSGS 


006510 


852 


959 


1379* 


MSG6 


006517 


856 


963 


1381* 


MSG7 


006526 


967 


1383* 


MSGS 


006536 


973 


1385* 




MSG9 


006546 


878 


7387* 




MTBA 


000606 


411* 


904* 


946 975 


MTBC 


000604 


H lU* 


Of 1 * 


yU!)* y5f 


MTC 


000602 


409* 


498* 


537* 538* 






908* 


934 


965 1069* 



n 

08:51 



3 
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SEQ 0038 



622* 
596 



1062 
600 



619* 



620* 621 



1045 



969 
836* 



839* 840 



858 



870* 872* 873 



888 



903* 



N 3 



r 7 TMf FD 

' nr r \j 


TMA n— 1 1 '\P\ MTI 




MArvi 1 


30A(1052) 


16-AUG 


-78 08- 


51 PAGE 


r 7TMP P 


P11 1A-Aiir:-7A 






CROSS REFERENCE 


TABLE - 


■ USER SY 


MT 1 MT 




iO? 


1067* 






783 


837 


n 1 o 


uuuouu 




5^7 


565 


569 




UU 1 jHV/ 


5?1 


530* 




970 


9/6 


980 


nr TP 


nnsx7n 


510 


634 


636 


UV. 1 r C 


nnsv>n 


R55 


859 


962 


966 


1 191* 


1287 






119? 


1194* 

1 1 7"t»T 




1217 


1222 


1227 






1?0^ 


1206 


1213 


nr TPfin 




1?^7 


1239 

1 b ^ 7 


1241* 








nr TPTl 


KAJjJf * 


1 19R 


124?* 










nr tdO 

UL 1 fTj 




1 10S 


1 197 

1 1 7f 


1200* 








nr TP1 

UL 1 r 1 


UV/JHSL/ 


1P01 


1205* 










nr TP? 

UL 1 fC 




1?0A 












nr TP'^ 

UL 1 » J 




1 199 


1230* 






1241* 


1247* 


nFi 

ur L 




1 191* 

117 1 


1193* 

1 1 7^ " 


1196 


1238 


m IT 




1?75 

i CI J 


1 277 


1281 


1292* 


1309 




PrMTR 






582* 


635 


650* 


1056 




PPI C, 


00071? 


A4R4r 


1007 

1 \J\J I 


1009* 


1033* 






PCU 


OOOAIft 


415* 


476* 


910* 








RrMT 


000A1? 


413# 








735 


742 




007^S^i 


6R4 


690 


697 


729 






^53# 


1173 


1176* 


1304* 






R'JTART 




^97 

J 7 r 


476* 








819 






674 


719 


762 


774 


806 




003506 


847 


860* 












003516 


838 


845 


861 


863* 






RUND1 


003376 


842* 


843 








871 


^rwT 

OLn i 


000676 


44?* 


682 « 


727* 


769* 


814* 




004576 


985 


1038* 










JL Lw C 1 


00461? 


1040 


1042* 








943 




000664 


437* 


785* 


787* 


877* 


880* 


<;t 


001316 




556 


628 










000636 

VWD JU 


423* 


775* 


782* 


820* 


828* 


911 




001000 


393 


474* 




613* 








000666 


438* 


587* 


607 








002014 


591 


613* 












001 174 


504* 


561 










ST1 


001452 


514 


541 


543 


545 


547* 


550 


O 1 c 


00154? 

\J\J 1 J*tC 


548 


563* 










ST3 


001 ^^1P 

\J\J t\j\C 


570 


573* 












001 6P0 


50' 


572 


574* 










00163? 

\J\J 1 U-'C 


577* 


579 












001024 


478* 














000620 


416* 


474* 


481 


485* 


486* 


513* 




898 


917 


925 


950 


981 


999 






1350* 














0001 76 


387* 


485 


542 


1274 








005340 


1 183* 


1186 












005334 


1161 


1182* 






357* 






0001 10 


365* 


525* 


554* 


555 




TrRi F 


005234 

\J\J JC J*t 


1159 


1164* 


1305 








TCRLFA 


005252 


1167* 


1170 








1319* 


TEMPS T 


000722 




1290* 


1294* 


1317* 


1318* 


TEMPI 


000646 


430* 


911* 


915* 


1098* 


1103 


1112* 


TEMP2 


000650 


431* 












rEMP5 


000652 


432* 


515 


523* 


529* 


■^30* 


531* 


TE MP4 


000112 


366* 


524* 


534* 


535* 


536* 


538 



SEQ 0039 



842 
1014 



844 
1193* 



854 



875 



961 



1229 1236* 



t 



77b 
835* 



821 



1459* 



971 



542 
1028 



588 
1039 



603 
1052 



609 
1274 



644 
1286 



846 
1325* 



860 
1349* 



1321* 1325 



533 
567* 



1265 
626 



1268 



B 4 





TMA.B-11 


SPLMTL INSTR 


MAT V1 1 

HAL I 1 1 


30A(1052) 


16-AUG 


-78 08 • 


51 PAGE 


41 




Pn 16-AUG-78 08:48 




CROSS REFERENCE 




USER SY^LS 


TEND 


002066 


494 


COB 


615 


624* 








icNDX 


002202 


645 




1181* 










TC V 


005332 


1157 


1 1 77 




1119* 


1120 


1143* 


1 IB 


00064A 


4294r 


1 1 m 


1106 


no's 


1298 


1 705 
1 jKjC 


1310 


1312 


1320* 


1321 




T T UC D 

1 INfcK 


005102 


1108 


1111 

1 1 1 1 


1125 


1128 


1 1 "^LU 






TINF 


0006A0 


427# 




1147 


1278 










000626 


4l94r 


1 1Z.5* 


1?76 






1 Kb 


000624 


418# 


1 1Z.1 * 


1144* 


1145 


1160 


1164* 


lUD 


000642 


428^ 




1155* 


1156 


1 1 58 


1251* 




1256 


1261* 




1179 


1184 


1 Uu 


005316 


1162 


1 1 AS 


1168 


1172 


1 178* 


TDQ 


000632 


421* 


1 1 sn* 


1180* 


1258* 


1260* 






TDC 


000630 


420* 


1 1 LR 


1178 


1254 








1 iLU 


001652 


581 




612 


651 








TC^f^A 


001702 


593# 


ouo 












1 OLU 1 


001736 


597 




623 




83? 






Tcrr>5 


001750 


602* 


t \J 1 


746 


791 






1 jLUj 


001766 


604 














TCTTPl 


000726 


458* 




619 










1 1 IN 


005120 


1100 


1 lZ.1ir 


1296 










TTINT 


004724 


379 














T T I &l1 


005140 


1145* 


1 1 Z.A 












T T T kiJ 


005154 


1148# 


1 1Z.O 












T Trt IT 


005172 


493 




505 


559 


630 


849 


851 


955 


958 


960 


964 


968 


974 


1004 






1163 


1175 


1187 


1283 




1289 


1315 


T TD 


004734 


519 














T Ton 


004742 


1100* 


1 Ice 












T TD1 


004770 


1102 


110^ 












T TD1 A 


005004 


1107 
















005020 


1110 


1 1 1 












TTD5 


005056 


1105 














1 1 n J 


005066 


1124 














1 1 Kh 


005076 


1127 














T TD*? 


005100 


1104 


1 1 ^n* 












T 1 Ar> 

1 1 nU 


000732 


460* 














Til APi 


000734 


461* 
















000736 


462* 














TO I AD 


000740 


463* 














T 7Ari 


000742 


464* 














T3JAD 


000744 


465* 
















000746 


466* 














T/ 1 Ar> 


000750 


467* 










529 


532« 




000610 


412* 




507 


522* 






573* 


6?6* 


627* 


836 


870 


903 






000714 


449* 












764 


UTkA TA 


007254 


667 


O ' o 


696 


713 


7?1 


741 


yru imM 


000105 


363* 


1 JHV 


1356* 












000103 


361* 


1 ^38* 


1346* 










tir T 


001270 


497 




653 










•Lnl 1 O 


007050 


1282 
















002112 


528 


562 


625 


629* 








SENDAD 


002160 


339 


640* 












$^MEW 


007066 


'288 


1429* 












SMSWR 


007054 


'284 















SEO 0040 



1147* 1150 1278* 1279* 1280 1297* 



1167* 1171* lidO 1183* 
1231 1244 



1230* 1243* 



853 ^57 895 897 
1010 1112 1016 1020 



922 924 
1135 1155* 



534 



809 1457* 



553* 567 



568* 571* 



CZTMFFO TMA.B-11 SPLMTL INSTR 
CZTMFF.PIl 16-AUG-78 08:48 



MACYll 30A(1052) 16-AU6-78 08:51 PAGE 42 

CROSS REFERENCE TABLE — USER SYMBOLS 



SEQ 0041 



tOUEST 007076 1314 
SREAD 006040 1291 
tSVPC - 001000 324* 



- 007360 315* 

401# 



1431# 
1294* 
345 
324 
405* 



326* 
470* 



330* 
1455* 



334* 
1458* 



338* 



341* 



345* 



349* 



378* 



385* 



391* 



395* 



. ABS. 007360 000 



ERRORS DETECTED: 0 

CZTMFF,CZTMFF.SEQ/SOL/N. :r0C-CZTMFF.SML/ML,CZTWFF.P11 
RUN-TIME: 1 3 .5 SECONDS 
RUN-TIME RATIO: 41/6-6.6 
CORE USED: 7K (13 PAGES) 

DOCUMENT PAGES: 4" 



